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AVERTISSEMENT 


L'apparition, toute récente, du vocable « bureautique » a mis 
l'accent sur les applications basées sur le traitement des textes. Presque 
chaque jour, des matériels et des logiciels conçus pour la manipulation 
des données alphabétiques sont lancés sur le marché. 


Dans la vie de l'Entreprise, il est en pratique difficile de dissocier 
Informatique et Bureautique. Une secrétaire tient des fichiers, tout 
comme un comptable ou un employé administratif. L'édition de contrats 
demande l’accès à des fichiers informatiques : « tarifs » et « clients ». 
Pour éditer des lettres de rappel à des clients distraits, il faut utiliser des 
données issues de traitement informatiques : facturation et comptabilité 
etc. 


Il n’y a aucune différence de nature entre ces applications « bureau- 
tiques » et les applications « informatiques » : les unes et les autres utili- 
sent des constantes et des variables, des fichiers et des instructions. Bien 
souvent, d’ailleurs, on constate que les premières sont plus simples à réa- 
liser que les secondes. Les applications bureautiques n’ont été prises en 
considération par les informaticiens que tardivement non pas à cause de 
leur complexité, mais d’abord pour des raisons psychologiques (la 
« clientèle » des secrétariats n’a pas du tout la même mentalité que les 
comptables ou les gestionnaires), structurelles (la rigidité - toujours exis- 
tante - des systèmes informatiques centralisés s’accommode mal des chan- 
gements incessants affectant les taches « de bureau » et financières (le 
coût de développement et de maintenance apparaissait bien lourd sur les 
gros systèmes centralisés). L’apparition des «minis» puis des 
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« micros » d’une part et les coûts croissants de la main d’œuvre ont tota- 
lement modifié les données du problème. Il devient maintenant possible 
et rentable d’implanter sur chaque bureau un terminal permettant à cha- 
cun de traiter ses propres textes et de gérer ses fichiers personnels. 


Le BASIC, langage privilégié des micros et minis systèmes, se devait 
d’offrir un ensemble efficace et complet de fonctions permettant la 
manipulation de données alphabétiques (appelées souvent « chaînes de 
caractères »). Des logiciels de traitement de textes écrits en BASIC sont 
d’ailleurs actuellement diffusés. 


L'emploi de ces fonctions BASIC permet donc aux utilisateurs 
d’intégrer dans les mêmes procédures traitement de Textes et traitement 
de Données, Informatique et Bureautique. Dans certains cas, l’utilisa- 
tion du BASIC peut éviter l’acquisition d’un système spécialisé dans le 
traitement de Textes. 


Nous verrons, de plus, que ces fonctions BASIC permettent de sim- 
plifier l'écriture et la maintenance des programmes de gestion « classi- 
ques ». 


L'objectif de cet ouvrage n’est pas d’exposer toutes les fonctions 
offertes par les différents fournisseurs de matériel et de logiciel mais de 
présenter au lecteur un BASIC « représentatif » (celui du système 
34 d'IBM), d’en détailler les fonctions liées au traitement de Textes et de 
les illustrer par de nombreux exemples et exercices. Il est bien évident que 
le lecteur pourra trouver sur d’autres systèmes des opérateurs ou des 
fonctions analogues portant des noms différents et offrant des possibili- 
tés plus ou moins importantes que celles que nous présentons. 


Nous avons divisé cet ouvrage en deux grandes parties : 


— La première (chapitres 1 à 5) présente le « mode d'emploi » des fonc- 
tions BASIC et l’illustre par des exemples et exercices simples. 


— La deuxième (chapitres 6 et 7) présente les fonctions générales de la 
Bureautique et montre par un exposé théorique illustré par des exerci- 
ces comment réaliser en BASIC la programmation correspondant à 
ces fonctions. 
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DÉFINITION D'UNE CHAÎNE 
DE CARACTÈRES 


1.1 CONSTANTES ET VARIABLES ALPHANUMÉRIQUES 


Les variables et constantes alphanumériques sont utilisées depuis 
fort longtemps par le langage BASIC. Si elles sont peu importantes dans 
les problèmes de calcul scientifique, il est indispensable de pouvoir les 
manipuler aisément dans les applications de gestion. Les opérations 
qu’on est appelé à faire sur les zones alphanumériques étant différentes 
de celles portant sur les zones numériques, il est nécessaire de fournir à 
l'interpréteur BASIC un moyen de distinguer les unes des autres. 


Une variable alphanumérique sera distinguée par le BASIC d’une 
variable numérique par /a présence d’un caractère « dollar » (8) en der- 
nière position du nom symbolique attribué à la variable. Ainsi ZONX 
désignera une zone numérique et l’interpréteur saura que les opérations 
arithmétiques sont permises sur celle-ci. Par contre, ZONXS$ référencera 
une zone alphanumérique et ces mêmes opérations seront interdites sur 
cette zone. 


La longueur du nom symbolique varie suivant le système BASIC 
utilisé. Dans celui qui nous a servi pour cet ouvrage, elle peut aller de 
deux caractères (A$, par exemple) à neuf (MATRICULS, par exemple). 
Rappelons, de plus, qu’un nom symbolique doit commencer par une 
lettre majuscule (de A à Z). 


Une constante alphanumérique est composée d’un ensemble de 
caractères compris entre deux guillemets (””). Ainsi, l'expression ?’ALE- 
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XANDRE” sert à spécifier la constante ALEXANDRE dans le pro- 
gramme. Lorsque le programmeur désire utiliser ce caractère guillemet à 
l’intérieur d’une constante, il devra l’indiquer sous forme de deux guille- 
mets accolés (’’”’). Ainsi, l’expression MARQUE’ RENAULT’’’’”? 


sera comprise par le programme comme la constante 
MARQUE’”RENAULT”’. 


Dans la suite de cet ouvrage, nous utiliserons le vocable « chaîne de 
caractères » ou plus brièvement « chaîne » pour désigner une constante 
ou une variable alphanumérique. Ce vocable, très utilisé en informati- 
que, reflète bien la réalité : une chaîne est un ensemble de caractères 
enchaînés les uns aux autres, chaque caractère constituant un maillon de 
la chaîne. 


1.2 JEUX DE CARACTÈRES 


Rappelons au lecteur qu’un caractère est stocké dans la mémoire de 
l'ordinateur sous forme d’un nombre binaire, en général de huit chiffres 
(Octet). La table donnant l’équivalent binaire d’un caractère représenté 
sous sa forme externe (imprimée, affichée sur un écran cathodique ou 
gravée sur un clavier de terminal) s’appelle « jeu de caractères » (en 
anglais : character set). 


Les figures 1.1 et 1.2 représentent les deux jeux de caractères les plus 
usités : l’'EBCDIC et l’ ASCII. On remarquera que certains nombres n’ont 
pas de représentation graphique : ils sont utilisés comme «caractères de 
commande» pour déclencher des fonctions périphériques de l’ordinateur 
(impression, transmission, affichage, etc...). 


1.3 CONTENU ET LONGUEUR D'UNE CHAÎNE DE CARACTÈRES 


Comme dans le cas des zones numériques, le signe égal (=) sert à 
affecter la valeur de l’expression située à droite du signe égal à la variable 
dont le nom figure à gauche. Ainsi : 
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RANG HEXA BINAIRE CAR  RANG HEXA BINAIRE CAR  RANG HEXA RINAIRE CAR  RANG HEXA BINAIRE CAR 


O 00 C0000000 44 409 01600000 128 90 10000000 1792 CO 11000000 € 
1 01 00000001 63 41 61000001 127 81 10000001 a 193 Ci 11000001 À 
2 02 CO0000010 £& 42 01000019 130 82 10000010 b 194 C2 11000010 KE 
3 03 00000011 67 43 01000011 131 93 10000011 € 195 C3 11000011 € 
4 O4 00000100 68 44 0100010 132 84 10000100 d 196 C4 11000100 [I 
g 05 00000101 47 45 01000101 133 g 10000101 € 197 9 11000101 E 
6 0é 00000110 79 44 01000110 134 86 10000110 Of 198 Cé 11000110 F 
7 07 00000111 71 47 O1000111 135 87 10000111 5 199 7 11000111 G 
8 08 60001000 72 48 01001900 136 88 10001000 bh 200 CB 11001000 H 
9 07 00001001 73 49 01601001 137 9 10001001  i 201 C9 11001001 I 
10 OA CO001010 74 AA O1001010 ° 138 GA 10001010 202 CA 11001010 

ii OH O0001011 73 4H O1001011 + 139 8H 10001011 203 CH 11001011 

12 OC O0001100 7é AC 01001100 4 140 GC 10001100 204 CC 11001100 

13 ON O0001101 77 AN 0100101 ( 141 BI 10001101 205 Cl 11001101 

14 OE O0001110 78 AE O{O01110 + 142 SE 10001110 204 CE 11001110 

15 0F OC00i111 79 A4F O1001111 ! 143 8F 10001111 207 CF 11001111 

ié 10 00010000 80 0 01010000 & 144 90 10010000 208 [O0 11010000  è 
17 ii 00010001 Ai Si 01010001 145 91 10010001  j 209 [1 11010001 J 
18 12 O0010010 A2 2 01010010 146 92 10010010 k 210 D? 11010010 K 
19 i3 O9010011 83 4 01010011 147 93 10010011 1! 211 3 11010011 L 
20 14 C0010100 84 54 01010100 148 94 10010100 om" 212 4 11010100 M 
21 15 00010101 85 9 01010101 149 95 10010101 on 213 NS 11010101 N 
22 16 00010110 Ré Gé 01010110 150 96 10010110 oo 214 [é 11010110 0 
23 17 O0010111 87 57 01010111 15 97 10010111 p 215 D7 11010111 OF 
24 18 00011000 88 54 01011000 152 98 10011000 4 216 H8 11011000 € 
25 19 00011001 89 59 01011001 53 99 10011001 or 217 [9 11011001 RK 
26 iA 00011010 90 SA O1011010 5 15 94 10011010 218 DA 11011010 

27 ik 00011011 91 SR O1011011 $ 155 9H 10011011 219 [DH 11011011 

28 1C 00011100 92 SC 01011100 * 156 9C 10011100 220 LHC 11011100 

29 il 00011101 93 SD O1011101  ) 157  9U 10011101 221 En 11011101 

30 1E 00011110 94 SE O1011110 ; 158 9E 10011110 222 [DE 11011110 

Si iF O0011111 95 SF O1011111 * 159 9F 10011111 Æ 223 [EF 11011111 

32 20 00100000 96 60 01100000 - 160 AO 10100000 224 ÆEO 11100000 £ 
33 21 00100001 97 61 01100001 / 161 Ai 10100001 225 Ei 11100001 

34 22 00100010 98 62 01100010 162 A2 10100010 5 226 E2 11100010 S 
35 23 00100011 99 43 01100011 163 A3 10100011 ‘+ 227 E3 11100011 T 
J%é 24 00100100 100 64 01100100 164 A4 10100100 u 228 E4 11100100 U 
37 25 (00100101 101 65% 01100191 165 AS 10100101 v 229 5 11100101 OV 
38 26 C0100119 102 44 01100110 166 A6 10100110 w 230 Eé 11100110 W 
39 27 00100111 103 67 01100111 167 A7 10100111 x 231 E7 11100111 X 
40 28 00101000 104 68 01101009 168 AQ 10101000 y 232 E8 11101000  Y 
4i 29 00101001 105 69 01101001 169 A9 10101001 7z 233 E9 11101001 OZ 
42 24 C0101010 104 4A 01101010 à 170 AA 10101010 234 EA 11101010 

43 2B C0101011 107 4H Qi101011 , 171 AB 10101011 235 ER 11101011 

4 2C 00101100 108 6C 01101100 172 AC 10101100 236 EC 11101100 
45 211 00101101 109 él O1101101 173 Al 10101101 237 El 11101101 
46 2E 00101110 110 6F O1101110 174 AE 10101110 238 EE 11101110 
47 2F 00101111 iii  6F Of101111 7? 175 AF 10101111 239 EF 11101111 
49 30 00110000 112 70 01110000 176 HO 10110000 240 FO 11110000 0 
49 51 00110001 113 71 01110001 177 Hi 10110001 241 F1 11110001 1 
S0 2 C0110010 114 72 01110010 178 H2 10110010 242 F2 11110010 2 
Ji 33 00110011 115 73 01110011 179 ES 10110011 243 F3 11110011 3 
ÿ 34 00110100 114 74 01110100 190 H4 10110100 244 F4 11110100 4 
U3 35 00110101 117 73 01110101 191 ES 10110101 245 5 11110101 5 
54 Jé 00110110 118 74 01110110 192 Hé 10110110 246 Fé 11110110 6 
ge 37 00110111 119 77 01110111 193 H7 10110111 247 F7 11110111 7 
do 38 (00111009 120 78 61111000 184 H8 10111000 248 F6 11111000 8 
91 39 00111001 121 79 01111001 4 185 B9 10111001 249 F9 11111001 9 
58 JA 00111010 122 74 O1111010 : 186 HA 10111010 25 FA 11111019 

99 3H 00111011 123 7H O1111011 £ 187 EH 10111011 251 FH 11111011 

60 3C 00111100 124 70 01111100 à 188 EC 10111100 252 FC 11111100 

éi 4h 00111101 125 70 01111101 ? 139 BD 10111101 233 Fl i1111101 

62 JE O01i1110 126 7E O1111119 = 190 BE 10111110 29 FE 11111110 

63 SF Oûliiiii 127 ?7F O1111111 191 HF 10111111 95 FF 1i1i1i11i 


Fig. 1.1. — Jeu de caractères EBCDIC 
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HEXRA RINAIRE CAR  RANG HEXA RINAIRE CAR  FKANG HEXA BINAIRE CAR  RANG HEXA BINAIRE CAR 


C0 00000000 44 40 01000000 à 129 80 10000000 192 CO 11000000 
O1 00000001 65 41 01000001 A 129 81 10000001 193 Ci 11000001 
ÿ2 00000919 66 42 01000010 KR 130 82 10000010 194 C2 11000010 
03 OC0U0011 47 43 010000i1 € 131 83 10000011 195 C3 11000011 
04 O0) 109 48 44 01000100 132 84 10000100 196 C4 11000100 
65 9000010! 49 45 01000101 E 133 85 10000101 197 CS 11000101 
dé CovU0110 70 46 01000110 F 134 86 10000110 198 Cé 11000110 
07 OOvvOoIII 71 47 01000111 G 135 87 10000111 199 C7 11000111 
05 00001000 72 43 01001000 H 136 80 10001000 200 CB 11001000 
09  OCU0i001 73 49 01001001 I 137 89 10001001 201 C9 11001001 
A  O000i010 74 44 01001010 I 138 8A 10001010 202 CA 11001010 
08 OÙ0UUIOII 75  4R O61001011 K 139 GR 10001011 203 CB 11001011 
0C 00001100 76 4C 01001100 L 140 9C 10001100 204 CC 11001100 
0 O000i10i 77 AN 91001101 M 141 SLI 10001101 205 Ch 11001101 
0E O0U0i110 7R  4E 01001110 ON 142 SE 10001110 206 CE 11001110 
OF O0001111 79  AF O1001111 0 143 9F 10001111 207 CF 11001111 
10 O0U19000 80 29 G1010000 F' 144 90 10010000 208 IO 11010000 
ii: 00010001 Ri 51 01010001 € 145 91 10010001 209 ni 11010001 
12 00010019 22 52 01010910 K 146 92 10010010 210 [2 11010010 
13 00910011 AT 53 01010011 S 147 93 10010011 211 D3 11010011 
14 00010190 R4 54 01010100 T 148 74 10010100 212 D4 11010100 
15 00010101 RS 5 01010101 OU 149 95 10010101 213 HS 11010101 
18 00010110 Ré 54 01010110 OV 150 94 10010110 214 Ié 11010110 
17 O00i011{ 87 57 O1010111 MW 15 97 10010111 215 D7 11010111 
8 00011090 28 SA 01011000 X J2 98 10011000 216 D8 11011000 
19 00011001 A9 59 O1011001  Y 153 99 10011001 217 D9 11011001 
14 00011910 90 SA 01011010 Z 15 94 10011010 218 LA 11011010 
ik ©OO0011011 91 SR O1011011 © 155 9H 10011011 219 DH 11011011 
1C 00011100 92 SC 91011100 rs 156 9C 10011100 220 NC 11011100 
il 00011101 93 SH 01011101 5 157 9 10011101 221 L 11011101 
iE 00011110 94 SE O1011110 * 15 9E 10011110 222 [LE 11011110 
iF O000i1111 93 SF 01011111 159 9F 10011111 223 EDF 11011111 
20 00100000 96 40 01100009 n 1640 AO 10100000 224 EO 11100000 
21 00100091 ! 97 61 01100001 a 161 Ai 10100001 223 Ei 11100001 
22 60100910 Oo" 9R 42 01100010 b 162 A2 10100010 226 E2 11100010 
23 00100011 £ 99 6% 01100011 c 163 A3 10100011 227 E3 11100011 
24 OG0100100 $ 109 64 01100100 d 164 A4 10100100 228 E4 11100100 
23 O0100101 *# 101 65 01100101 e 165 5 10100101 229 ES 11100101 
26 (00100110 & 192 66 01100110 f 1é6 A6 10100110 230 Eé 11100110 
27 O0100111 ? 193 67 01100111 9 167 A7 10100111 231 E7 11100111 
23 00101000 ( 104 68 01101000 h 163 A8 10101000 232 E8 11101000 
27 00191091  ) 195 69 O1101001  i 149 A9 10101001 233 E9 11101001 
2A OC191010 + 1968 64 01101010  j 179 AA 10101010 234 EA 11101010 
2B O0101011 + 107 6 01101011 171 AH 10101011 233 ER 11101011 
2C 00101190 ; 108 6C 01101100 ! 172 AC 10101100 236 EC 11101100 
2n O0CI91101 - 109 él 01101101 om 173 Al 10101101 237 El 11101101 
2ÆE 90101110 110  6E 01101110 on 174 AE 10101110 238 EE 11101110 
&r 00101111 / 111 4F 01101111 oo 175 AF 10101111 239 EF 11101111 
30 00110090 9 119 70 61119900 p 176 HO 10110000 240 FO 11110000 
Si OOÏ10001 1 AUX 71 O1110001 4 177 Hi 10110001 241 Fi 11110001 
J2 0011001 7 114 2 01110010 or 17 2 10110010 242 F2 11110010 
33 O0GI10051 3 115 73 O1110011 s 17 E3 10110011 243 F3 11110011 
34 00110100 4 114 74 (11101090 + 189 H4 10110100 244 F4 11110100 
55 00110101 © 117 75 01110101 ou 181 ES 10110101 245 F5 11110101 
Sé DOU110119 * Î1A 76 01110119 v 182 Hé 10110110 246 Fé 11110110 
Sr OùLI0{11 7? 119 77 O1110111 w 193 H7 10110111 247 F7 11110111 
38 29111000 8& 129 78 01111000 x 184 EB 10111000 248 F8 11111000 
3? i 9 121 79 O1i11001 y 185 H9 10111001 249 F9 11111001 
3h { 122 JA 01111010 7 186 HA 10111010 230 FA 11111010 
SE 197 7H O1111011 187 El! 10111011 251 FH 11111011 
ëC { 124 077 01111100 à 188 EC 10111100 252 FC 11111100 
ue = 125 7h Oi111101 187 El 10111101 253 Fli 11111101 
ca } 126 76 0111110 190 [M 10111110 29 FE 11111110 
SF ? 197 FF O1111111 191 HF 10111111 245 FF 11111111 





Fig. 1.2. — Jeu de caractères ASCII 
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— L’instruction ZONAS$ = Nom et Prénom’ placera la constante 
Nom et Prénom dans la chaîne appelée ZONAS 


— L’instruction ZONX$=ZONAS affectera le contenu de la 
chaîne appelée ZONAS à la chaîne appelée ZONXS. 


Il y a cependant une différence très importante entre le traitement 
des zones numériques et celui des chaînes de caractères : /a longueur 
d’une zone numérique reste fixe quelques soient les traitements effec- 
tués, celle d’une chaîne varie en fonction des opérations que le pro- 
gramme lui fait subir. 


Nous allons illustrer ceci en exécutant le petit programme ci- 
dessous. Il utilise la fonction BASIC ’’LEN?’”’ qui sert à récupérer la lon- 
gueur de la chaîne ou plus généralement de l’expression « caractère » 
figurant entre parenthèses. Par exemple, l'instruction L = LEN(AS) pla- 
cera la longueur de la chaîne A$ dans la zone numérique L. 


00010 ! EfO0{ : Longueur d'une chaine de caractères 
DODTO M MSS dm e e es me ne unes ee eme . Re 


00030 FRINT "au début,A$ contient :",A$;",5a longueur est MLENCAY) 
00040 A$="AHCDE " 

00050 FRINT "après 40,4% contient :";A$;",sa longueur est M LENCAY) 
00060 A$="AZERTY " 

00070 FRINT "après 60,A% contient "iAb;i",sa lonaueur est :";LENCAY) 
00080 Aÿz"WMMCURUN" 

00090 FRINT "après 80,A$ contient :";A$;",5sa longueur est :";LEN(AY) 
00100 KH$=A# 

00110 FRHINT "après 100,H$ contient :";H#$4;",s5sa longueur est :";LEN(AY) 
00120 A$="" 

00130 FRINT "après 120,A$ contient :";A$;",5a longueur est MiLENCA#) 
00140 STOF 

KUN 

au début,AŸ% contient :,sa longueur est : 0 


après 40,A$ contient :ARCDE,sa longueur est : 5 
après 60,À$ contient :AZERTY ,sa Longueur est É] 
après 80,A$ contient :W"CUE",5sa Longueur est : 6 
après 100,H$ contient :W"CUKH'",sa longueur est : 6 
après 120,A$ contient :,sa longueur est : © 


HAS-5055 Le programme s'est terminé à La Ligne 140 


Que constatons-nous en examinant les résultats affichés par ce pro- 
gramme ? 


— au début du programme, avant toute exécution, il n’y a rien dans 
A$ et la longueur de cette chaîne est zéro. 


— après exécution de l'instruction 40, la valeur de la constante 
ABCDE a été affectée à AS et la longueur de A$ est devenue S. 
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—après exécution de l'instruction 60, le contenu de A$ est 
AZERTY suivi de deux blancs et sa longueur est devenue 8. Les 
deux « blancs » font, en effet, partie de la chaîne A$. 


— après exécution de 80,B$ contient W’’CVB’”’ (puisque chaque 
paire de guillemets à l’intérieur d’une constante compte pour un 
seul guillemet). 


— après exécution de 100 (affectation de B$ à AS), AS$ a pris le con- 
tenu et la longueur de B$. 


— après exécution de 120,A$ ne contient plus rien et sa longueur 
est NULLE. On dira alors qu’on a affaire à une chaîne « nulle » 
(« null string » en anglais). 


En conclusion, il est important pour l’utilisateur de BASIC de ne 
jamais perdre de vue que le système entretient au fur et à mesure de l’exé- 
cution du programme, deux valeurs pour une chaîne donnée : 


— son CONTENU 
— sa LONGUEUR 


D'autre part, il est possible d’indiquer au système la longueur maxi- 
male que peut prendre une chaîne donnée. Ceci se fait par une instruc- 
tion DIM. Elle a la forme : 


DIM Nom-de-chaîne-1 *L1,Nom-de-chaîne-2*L2,etc.. 


L1, L2, etc... étant les longueurs maximales permises pour les chaînes 
1;:2;"etc.;. 


Par exemple, l’instruction DIM ZONES$*24,ALPHAS$*2 indiquera 
au programme que la longueur maximale de la chaîne ZONES est de 24 
caractères et que celle de ALPHAS$ est de 2. 
Quand le nom d’une chaîne ne figure pas dans un ordre DIM, le système 
lui attribue une longueur maximale par défaut (elle est de 18 pour le 
système que nous avons utilisé). 


Examinons ce qui se passe si la longueur réelle d’une chaîne devient, 
en cours d’exécution, supérieure à celle spécifiée par DIM ou prise par 
défaut. Pour ce faire, exécutons la séquence suivante : 


Définition d'une chaîne de caractères 7 


00010 ! E102 : dépassement de capacité d'une chaine de caractères 
00020 = en 
00030 DIM A$x10 

00040 A$="ABCDEF" 

00050 A$="AHCDEFGHI JKLM" 

00060 STOF 

RUN 


HAS-5046 Ligne 50: dépassement de capacité pour zone caractère 


Nous constatons que le système nous a sorti un message d’erreur 
indiquant que l’instruction 50 n’a pu être exécutée, car elle essayait de 
donner à la chaîne A$ une longueur supérieure (celle de la constante 
?’ABCDEFGHIJKLM”’-soit 13) à la longueur définie dans l’ordre 
DIM - soit 10. 


Il est possible de tester cette condition d’erreur par un *’ON’’ et, par 
exemple, de sortir un message d’erreur et d’arrêter le traitement. C’est ce 
que nous avons fait dans le programme listé ci-après. Le mot-clé 
SOFLOVW indiqué après le ON signifie « dépassement de capacité sur 
une chaîne de caractères » (en anglais : String OverFLOw). 











00010 ! E103 : dépassement de capacité d'une chaine de caractères 
00020 ! . .  n ee mue eue one ces mme me one o00 se eee ones cat cm cine 000 0e see eee mes ones mue one ee me no ame ones cube ous one em me mm ven js me eus ou dt Shut 6006 cas as 
20050 ! 

00040 ON SOFLOW GOTO 1409 ! détection de l'erreur et débranchement 
00050 ! 

60060 DIM A$Xx10 

00070 A$="ARCDEF" 

000680 À$=#"ARCDEFGHIJKLM" 

00090 STOF 

00100 ! 

90110 ! Houtine de traitement du dépassement de capacité 

00120 ! 

00130 FRINT "" 

00140 FRINT "IL y à eu une ERREUR à La Liqne ";LINE 

00150 FRINT "" 

00160 FRINT "AS contient maintenant :";A$;",sa Longueur est Mi LEN CAE) 
00170 STOF 


run 
TL y à eu une ERKEUR à La Ligne 80 


A$ contient maintenant-:ARCDEF ,sa longueur est 6 


HAS-5055 Le programme s'est terminé à La Ligne 179 


Rappelons au lecteur que la fonction BASIC « LINE » permet de 
récupérer le n° de ligne de l’instruction qui a provoqué l’erreur. 


Nous aurions pu également sortir le message et continuer le traite- 
ment. Dans le programme E105, le CONTINUE de l'instruction 170 va 
provoquer le retour du traitement à l’instruction, suivant celle où 
l'erreur s’est produite - 90 STOP dans notre cas. 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
09160 
00170 
RUN 


IL y à 


A$ contient maintenant 


HAS-5055 


PE LOS 


dépassement de capac 


ON SOFLOW GOTO 130 : 
! 

DIM A$x*10 

A$="AECDEF" 
A$="ARCDEFGHIJKLM" 
STOF 

1 

! Koutine de 
' 


détect 


traitement 


PRINT " 

FRINT "IL y a eu une erreur 
FRINT " " 

FRINT "A$ contient 
CONTINUE 


à, 


eu une erreur à La Ligne 80 


:ARCDEF , sa 


Le programme s'est terminé 


du dépassement 


maintenant 


Longueur 
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ité d'une chaine de caractères 


ion de L'erreur et débranchement 


de capacité 


à La Ligne ";LINE 


:";A$;",sa longueur est :";LENCA$) 


est 6 


a La Ligne 90 


Il est également possible de demander au système d’ignorer l’erreur 
et de continuer le traitement. Il suffit d'indiquer le mot-clé IGNORE 
après ON SOFLOW. C’est ce que nous avons fait dans le programme 
E104 ci-dessous. 


00010 
00020 
000%0 
90040 
00050 
00060 
00070 
00080 
00090 
0000 
00110 
run 


A$ contient 


HAS-5055 


! E104 


Vie 





dépas ment de Capac 





1 

ON SOFLOW IGNORE on ne 
L 

DIn A$x10 
A%="ARCDEF " 
A$="ARCDEFGHIJKLMH" 
FRINT " " 

FRINT "A$ contient 
STOF 





"AS; ",sa 


:"ARCDEFGHIJ,sa Llorgueur 


Le 


tient 


programme s'est terminé 





ité d'une chai 





L'erreur 


pas compte de 


Longueur est :";LENCAY) 


est 10 


à La Ligne 110 


En regardant le résultat obtenu, on constate que le BASIC a mouve- 
menté la constante ’ABCDEFGHIJKLM”” dans la zone A$ jusqu’à ce 
que celle-ci soit pleine, c’est-à-dire jusquà ce que sa longueur soit 10. 
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1.4 COMPARAISON DE DEUX CHAÎNES DE CARACTÈRES 


Tout comme dans le cas de variables et de constantes numériques, la 
comparaison entre deux chaînes de caractères s’effectue par une instruc- 
tion IF suivie de THEN et de ELSE. Cette instruction a la forme : 


IF chaîne-1 opérateur chaîne-2 THEN A ELSE B 
ou : 
L'opérateur peut-être + ( égal) 
ou < > (non égal) 
ou < (inférieur) 
ou > (supérieur) 
ou < = (inférieur ou égal) 
ou > = (supérieur ou égal) 


A et B peuvent être un n° de ligne, une étiquette symbolique ou une 
expression arithmétique ou caractère. 


L'emploi de ELSE est optionnel : s’il est omis, le programme conti- 
nue en séquence. 


Voici quelques exemples d’écriture de cette instruction . 


00010 ! Ef07 : exemple d'instructions IF .., THEN .,, ELSE 
00020 ! . | 

00030 IF A$CKH$ THEN 100 

00035 ! 

00040 IF A$S“KR$ THEN 110 ELSE 120 

00045 ! 

00050 IF A$SCHS THEN IMPFKI 

00055 ! 

00060 IF A$SC=HS THEN IMFKI ELSE FIN 

00065 ! 

00070 IF A$S)=H$ THEN A$="1234" 

00075 ! 

00080 IF ALORS THEN A$S="AZERTY" ELSE A$="WXCUR" 
00085 ! 

00990 IF H#$2"125456" THEN X=Yx?+,91 ELSE IMFKI 
00095 ! 


00100 GOT0 110 
00110 IMPFRI:FRINT A$,EH$ 
00120 FIN: STOF 


Examinons de plus près le mécanisme de la comparaison de deux 
chaînes, A$ et B$ par exemple : 
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a) Le système compare le premier caractère A1 de A$ avec le pre- 
mier caractère de B1 de B$. 

b) Si le rang de A1 dans le jeu de caractère utilisé est inférieur à 
celui de B1, la comparaison donne A$ < B$ et la comparaison s’arrête. 

c) Si le rang de Al est supérieur à celui de B1, le résultat est : A$ < 
B$ et la comparaison s’arrête. 

d) Si les rangs de Al et B1 sont égaux, la comparaison reprend en 
a), en prenant les deux caractères suivants. 

e) La comparaison peut continuer ainsi jusqu’à ce que la fin d’une 
chaîne ou des deux (si elles ont la même longueur) soit atteinte. 


Dans ce cas : 
— si les deux chaînes ont la même longueur, elles sont considérées 


comme égales. 
— si leurs longueurs sont différentes, la plus courte des deux est 
prise comme étant inférieure à l’autre. 


Vérifions ce dernier point sur l’exemple ci-dessous : 


90010 ! E106 : comparaison de deux chaines de caractères 

00020, TL ===. ennemie doser en eee 

00030 FKRINT " " 

00040 Ag="ARCDE" 

09050 FRINT "A4 contient :";A4;", sa Longueur est :";LEN(AY) 
090060 H$="ARCDE " 

00070 FRINT "H$ contient :";H$;", sa longueur est :";LENCH#$) 
00080 ! 

00090 FKRINT " " 

00400 IF A$=H$ THEN FRINT " ---) A$ est égale à K4$" 

00110 IF ASDKH$ THEN FRINT " ---) A$ est supérieure à KH$" 

00120 IF ASCHS THEN FRINT " ---) A$ est inférieure à K$" 


00130 STOF 
vur 


At contient :AHCDE, sa Longueur est 
H$ contient :ARCDE , sa longueur est : 7 


mr) Af est inférieure à KH$ 


HAS-5055 Le programme s'est terminé à La Ligne {30 


Nous constatons que, bien que les deux chaînes A$ et B$ aient appa- 
remment le même contenu, A$ est prise comme étant inférieure à B$ et 
B$ est plus longue que A$ à cause des deux blancs à droite. 


En conclusion : 


1. La recherche de l’égalité entre deux chaînes n’est valable que si les 
deux chaînes ont la même longueur. 
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2. Le résultat de la comparaison entre deux chaînes dépend du jeu 
de caractères utilisé. 


1.5 INITIALISATION DE CHAÎNES DE CARACTÈRES PAR DATA ET READ 


Les ordres DATA et READ peuvent servir à initialiser les chaînes de 
caractères aussi bien que les variables numériques. L’ordre DATA a la 
forme : 


DATA constante-1,constante-2,constante-3,etc. 


et place les valeurs alphanumériques ou caractères 1,2,3,etc. dans le 
fichier interne au programme. 


L’ordre READ a la forme : 


READ variable-1,variable-2,variable-3,etc… 


Il charge dans les variables (numériques ou chaînes) les valeurs lues 
dans le fichier interne dans l’ordre où elles y ont été mises par DATA. 


Plusieurs ordres READ et DATA peuvent être utilisés dans un 
même programme. Voici un exemple d’utilisation : 


000140 ! Ei109 : exemple d'utilisation de DATA et KEAD 

[Q] [0 f) : 0 [0] ll un En mn . n eee ue 0006 206 ones 0000 0000 vove vues es mn pe nou eme 0008 0006 0008 one mes mes moe moe 0e 

00030 DIM FRENONEE?5S 1 La zone FRENOM$ a une longueur maxi de 25 
60040 ! 

90050 DATA M"DUVALLIER", 17,2% 

C DATA -12,15," Gilbert,Léon,Faul " 

DATA 41,2% 













jp nn 
D NOMYS,S,D,U 
FRINT "NOM contient MNOMS;",sa Longueur est :";LENCNOMYS) 





2" FRENOMS;",sa Longueur est :"; LENCFRENOMS#) 


HOME contient :BUVALLIER,£a longueur est V4 
FRENOMS contient : Gilbert, Léon, Faul ,#a longueur ést : 19 


Hé 55 Le programme s'est Terminé à La Ligne 170 
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REMARQUE 1 : L’ordre RESTORE sert à indiquer que la lecture par 
READ du fichier interne doit recommencer au début de ce fichier, c’est- 
à-dire à la première constante chargée par DATA. 

L’exemple ci-dessous illustre l’emploi de RESTORE. 


00010 ! E110 : exemple d'utilisation de KESTORE 
90020 ! ---- RS Sn Es De re ES ee es 
90030 ! 

00040 DATA "Fierre","Faul","Jacques" 

00050 ! 

00060 ‘ FRINT " " 

90070 READ XA4,XER4,XC# 

00080 FRINT "Après 70 : XA$ = ";XAH;",XER = ";XH4,",XC4 = ";XCY 
00090 ! 

00100 FRINT "" 

001410 RESTORE 

00120 KREAD A1$,A2$,A34 


00130 FRINT "Après 100 : A1$ = ";AÎ$;",A2$ = "ADS; "ASS % "AGE 
00140 STOF 
run 


Après 70 : XA$ = Fierre,Xk$ = Faul,XC$ # Jacques 
Après 100 : A1$ = Fierre,A2$ = Faul,A3$ = Jacques 


HAS-5055 Le programme s'est terminé à La Liane 4140 


Dans ce programme : 
— l'instruction 70 charge les chaînes XAS,XB$,XCS$ 


— l'instruction 110 (RESTORE) repositionne le fichier interne sur 
le première constante chargée par DATA (”’Pierre’?). 


— l'instruction 120 charge les chaînes A1$,A25,A3$. 


REMARQUE 2 : La condition d’erreur SOFLOW peut être détectée au 
cours d’une opération READ si la longueur de la constante spécifiée 
dans DATA est supérieure à celle de la chaîne réceptrice. 


Exemple : 


00010 ! Ef11 : Dépassement de capacité sur KEAD 
00020 1 em ms eue ou cn os 0e me ee 000 20 00e ee es ee 0e 00 date one ne 00 00 0 ce eus on 060 008 coen es as cou 
00030 ! 

00040 DIM NOMY#109 

090950 ! 

00060 DATA "CARAVANSERAIL" 

00070 ! 

090080 KEAD NOM 

00090 ! 

run 


HAS-5046 Ligne 80: dépassement de capacité pour zone caractère 
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OPÉRATIONS D'ENTRÉE-SORTIE 
SUR LES CHAÎNES DE CARACTÈRES 
TABLEAUX DE CHAÎNES 
DE CARACTÈRES 


2.1. ENTRÉE DE CHAÎNES DE CARACTÈRES PAR INPUT ET LINPUT 


L’instruction INPUT du langage BASIC peut être utilisée pour 
entrer des chaînes de caractères soit à partir de fichiers en entrée non for- 
mattés, soit directement à partir du clavier. Cette instruction a deux for- 
mes : 


INPUT variable-1,variable-2,variable-3,.…. 
ou INPUT ‘message de service’ : variable-1,variable-2,.….. 


Variable-1,2,3,etc... sont des noms de variables numériques ou de 
chaînes de caractères. Le « message de service » est utilisable unique- 
ment lorsqu'il s’agit d’une entrée à partir d’un terminal 
« clavier-écran ». Ce message s’affiche à l’écran et sert à guider l’opéra- 
teur. 


Comme toute opération sur les chaînes, INPUT attribue à chaque 
chaîne une longueur. Voyons sur l’exemple ci-dessous comment, en pra- 
tique, l’instruction INPUT fonctionne : 





intrer Le code et Le nom du clie 
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00010 ! Efi2 : exemple d'instruction INFUT 

00020 ! 

09030 DIM NOMCLIS#20 U NOMCLIS à une Longueur maxi de 20 caractères 
00040 ! 

09050 INFUT "Entrer Le code et Le nom du client : ": CODCLI, NOMCLTS 
00060 ! : 

000790 FRINT MNOMCLIS ="; NOMCLIH," Longueur ©"; LENCNOMCLTS) 

00080 ! 

00090 GOTO 50 





KUN 

Entrer Le code et Le nom du client : 145, DUFONT 

NOMCLI$ =DUFONT Longueur : 6 

Entrer Le code et Le nom du client : 145, DLIFONT 
NOMCLIS$ =DUFONT Longueur : 6 

Entrer Le code et Le nom du client 145," DUFONT "! 

NOMCLIS = DUFONT Longueur : 412 

Entrer Le code et Le nom du client : 145, "DUPONT" 

NOMCLI$ =DUFONT Longueur : 4 

Entrer Le code et Le non du client : 445, DUFONT DUUAL MARTINE AU 
HAS-7001 chaine de caractères invalide -- réentrer entiérement La Ligne 


Nous constatons que : 


1. Les chaînes de caractères peuvent être entrées telles quelles ou 
entre guillemets. 

2. Si les guillemets sont utilisés : 

La chaîne de caractères prise en compte par BASIC va du caractère sui- 
vant le premier guillemet à celui précédant le second. 

3. Si les guillemets ne sont pas utilisés : 

La chaîne prise en compte va du premier caractère non blanc au dernier 
caractère non blanc de la valeur entrée. 

4, Le système refuse toute zone dont la longueur est supérieure à 
celle indiquée par DIM (ou à 18, si DIM n’est pas spécifiée pour cette 
zone). 

L’ordre INPUT ne permet pas d’entrer n’importe quelle chaîne. 


Nous pouvons le constater en exécutant le programme E112 précédent 
avec une entrée différente. 


l E112 exemple d'instruction INFUT 
DIM NOMCLI4EZ0 UONOMCLIS à une Longuëeur maxi de 20 caractères 
INFUT "Entrer Le code et Le nom du client : ": CODCLI,NOMCLI# 
PRINT "NOMELIS #", NOMCLIE," Longugur :"; LENCNOMCLT4) 


GOT 50 
F: 








it 1147,DUVAL, MARTIN ET FILE 
- réentrer entièrement La 





EAS-7002 trop de données entrée 
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La zone que nous avons essayé d’entrer sans guillemets a été refusée 
par le système. En effet, les virgules incluses dans la zone frappée au cla- 
vier sont considérées par le système comme des séparateurs de zones. 
Celui-ci va considérer qu’il y a plus de zones frappées qu’il n’y en a dans 
la liste indiquée dans INPUT et sort donc un message d’erreur. 


Pour pallier cet inconvénient, on a incorporé au langage BASIC 
Pinstruction LINPUT. Celle-ci ressemble à INPUT, mais ne permet que 
l'entrée d’une seule chaîne. Elle s’écrit : 


LINPUT nom-de-chaîne 
ou LINPUT ‘message de service'" : nom-de-chaîne 


Analysons son fonctionnement sur le programme El14 ci-dessous : 


00010 ! E114 : exemple d'instruction LINFUT 


09020 ! 
00030 DIM NOMYX 30 !ONOMS à une Longueur maxi de 39 car, 
00040 ! 
990959 LINFUT "entrer Le nom du client " NOM 
0006G ! . 
90079 FRINT "NOMS ="; NOM#;" Longueur : ";LENCNOMY) 
00080 ! 

00090 GOTO 50 
RUN 

entrer Le”nom du ctient :  DUFONT 

NOM$ =DUFONT Longueur : 6 

entrer Le nom du client : DUFONT 

NOM DUFONT Longueur : 16 

entrer Le nom du client # PUFONT _ 

NOM$ ="  DUFONT " Longueur : 12 

entrer Le nom du client : "OUFONT" "DUVAL" 

NOM ='"DUFONT" "DUVAL'" Longueur : 16 

entrer Le nom du client : DUFONT,DUVAL, "X" 

NOM$ =DUFONT, DUVAL,"X" Longueur 6 

entrer Le nom du client 

NOM$ * Longueur : Ô 


entrer Le nom du client 


Nous voyons que, sans utiliser les guillemets : 


1. La chaîne saisie par lé programme inclut les blancs entrés à gau- 
che. 


2. Il est possible d’entrer une chaîne de longueur nulle (ce que 
INPUT n’accepte pas). 
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2.2 IMPRESSION DE CHAÎNES DE CARACTÈRES PAR PRINT 


Rappelons que l’ordre PRINT permet d'imprimer, d’afficher sur un 
écran ou d’écrire sur un fichier non formatté des zones et des constantes 
numériques ou caractères figurant dans la liste après le mot-clé PRINT. 


Chaque élément de la liste peut être séparé du suivant par une vir- 
gule (;) ou un point-virgule (;). 
PRINT (£nn): nom-1 , nom-2 , etc... 
constante-1 5 constante-2 5 CTC.:: 


La sortie obtenue est différente suivant le caractère séparateur 
employé. Nous allons le montrer en exécutant le programme suivant : 


VIELLSS exemple d'utilisation de L'instruction FRINT 





DIM A$x20,H$x1{10 

00050 ! 

99969 A$="ARCDEFGHIJKLHNOFOARET" 
09070 H$="012345678%" 





29080 ! 
ERINT "" 
FRINT À$,B#, "abcdefahiiklo" 
ERINT "" 
FRINT ASE; "abcdefahijklo" 
00105 FRINT "" 
90119 FRINT 4$,KH#4; "abcdetahijklo" 
RUN 
ABCDEFGHIJKLMNOFARST 9123456769 abcdefghijklo 


ARCDEFGHIJRLMNOFARSTOi2345678%abcdefahiiklLo 


ARCDEF GHI JKLMNOFARET 012 


HAS-5033 Le programme s'est terminé à La Ligne 99999/6% 


Nous constatons que : 


1. si deux zones (variables ou constantes) sont séparées par un 
point-virgule, elles sont imprimées « collées » l’une à l’autre. 


2. si une zone est séparée de la suivante par une virgule, la zone spé- 
cifiée avant la virgule sera imprimée en étant cadrée à gauche d’une zone 
de longueur fixe. 


Cette longueur est multiple d’une longueur « standard » qui, dans 
le système utilisé, est de 16 par défaut. Ainsi, l’ordre PRINT de l’instruc- 
tion 90 imprimera : 
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— la chaîne A$ (longueur 20) cadrée à gauche d’une zone de lon- 
gueur 32 (2 fois 16) 


— Ja chaîne B$ (longueur 10) et la constante caractère ’’abcd...? 
(longueur 13) cadrées dans deux zones de longueur 16 (une fois 16). 


, 


Il s’agit, bien entendu, des longueurs réelles et non de celles indiquées 
dans DIM. 


La longueur standard de la zone d’impression peut être indiquée par le 
programmeur à l’aide de l’instruction OPTION PRTZO /, où est la 
longueur standard désirée. 


Vérifions-le en modifiant le programme précédent en indiquant une lon- 
gueur standard de 8 (ligne 35) : 


Eii4 : exemple d'utilisation de L'instruction FRINT avec OFTION 


GFTION FKTZO 8 
DIM AxiC, R4xi0 


A4 "ARCDEF GHI JKLHNOFQRST" 
HE="G123456709" 









INT "" 
ENT A%,B$, "abcdefghijklo" 
[ il T nu 
NT A%;H4;"abcdefahijiklo" 
CNT "E" 


F 
F' 
F" 
F 
F* 
FETHT ÀAE,KE; "abcdéefahijklo" 





AECDEFGHI JIELMNOFORET 0123456789 abcdefghijklo 
ABCCEFGHIJERLMNOFORSTO£25454678Yabcdefahtiiklo 
BBCDEFGHIURLMNOFORET G12445674Sabcdefahijklo 


ÉAS-59038 Le programme g'est terminé à La Liane 99999/6% 


Nous constatons bien qu’à l’instruction 90, par exemple, A$ est 
imprimée dans une zone de 24 (3 fois 8). 


2.3 ENTRÉES ET SORTIES FORMATTÉES DE CHAÎNES DE CARACTÈRES 


En BASIC, ces entrées-sorties se font à l’aide d’instructions READ, 
WRITE,REWRITE,PRINT... USING. Le mot-clé USING se réfère à 
une instruction FORM décrivant le format de l’enregistrement à lire ou à 
écrire. 
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Dans ce format, la spécification C suivie d’un entier sert à indiquer 
au système la longueur de la zone en entrée ou en sortie suivant le cas. 
Voici quelques exemples d’utilisation de ces instructions : 


1. Lecture d’un enregistrement. 


50 READ £1,USING 60 : X,A$,Y 
60 FORM N 3,C 12,N 5 


La chaîne de caractère A$ est lue sur le fichier n° 1 et prend une lon- 
gueur de 12 caractères. 


2. Lecture d’un enregistrement 
50 DIM B$ *30,C$ +36 


100 READ £,USING 110 : OQ$,W$ 
110 FORM POS 10,C 25,POS 60,C 30 


Les chaînes Q$ et W$ sont lues à partir des positions 10 et 60 de 
l'enregistrement, sur des longueurs de 25 et 30 caractères respectivement. 
Nous avons indiqué dans ce cas les longueurs maximales de Q$ et WS$ 
dans un ordre DIM. Sans cette précaution, une erreur système SOFLOW 
(cf. $ 1.3) se serait produite à la lecture. En effet, le système aurait tenté 
d’attribuer à Q$, par exemple, une longueur de 25 alors qu’en l’absence 
de DIM pour Q$, la longueur maxi par défaut est 18. 


3. Impression d’une ligne 
020 DIM NOMÉ * 30,PRENOM$ * 20 


KOKOKHKOKK OK OK OH OH OK OK OK DK Ke He OH OH OK Ke Ke DK O6 O6 He OH Ke Ke Ke O6 O6 He Ke Ke Ke Ke 6 O6 ke 


200 PRINT £5, USING 300 : ‘’Nom :'’,NOM$, prénom :'’, PRENOM$ 


KOHOKHKOK OK OKHHHH OK OK DK DK OK OH OH OK KE DK DK OK OH OH KE OK OK O6 He 6e Ke Ke OK O6 6 6 Ke Ke 


300 FORM PO$ 10,C 7,C 35,C 10,C 20 


Une ligne sera imprimée par l’instruction 200. Nous y trouverons à 
partir de la position 10 de la ligne et de gauche à droite : 


— Ja constante *’ Nom :”” sur 7 caractères (C 7) 

— la valeur de NOMS sur 35 caractères (C 35) bien que la longueur 
indiquée dans DIM soit 30 

— la constante ’’prénom :”” sur 10 caractères (C 10) 

— la valeur de PRENOMS sur 20 caractères. 
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En résumé : 


Dans toutes les instructions d’entrée-sorties, les chaînes (variables 
ou constantes) sont complétées à droite par des blancs si la longueur 
indiquée après le *’C’’ du FORM est plus grande que la longueur réelle 
de la chaîne. 

Si l'inverse se produit (longueur après ?’C’’ inférieure à la longueur 
réelle), une erreur *’SOFLOW””’ sera détectée. 


Il est donc, en pratique, nécessaire de spécifier la longueur de cha- 
que chaîne par une instruction DIM si cette longueur dépasse la longueur 
maxi par défaut. 


2.4 TABLEAUX DE CHAÎNES DE CARACTÈRES 


Tout comme pour les variables numériques, le BASIC permet de 
définir et d’utiliser des tableaux de chaînes de caractères. Les principes 
du traitement des tableaux de chaînes sont les suivants : 


1. L'origine des indices (0 ou 1) est définie pour tout le programme 
et est valable pour tous les tableaux, numériques ou caractères, du pro- 
gramme : 


— OPTION BASE O indique que cette origine est ZÉRO 
— OPTION BASE 1 indique que cette origine est UN 


Si aucune BASE n’est spécifiée, 0 est pris par défaut. 


2. Le BASIC admet des tableaux à une dimension (vecteurs) ou 
deux dimensions (matrices). Les dimensions de chaque tableau et la lon- 
gueur maximale de chaque élément sont indiqués dans une instruction 
DIM. 

Celle-ci a la forme : 


DIM nom-du-tableau(Lmax,Cmax)*Imax 


Lmax est le N° de ligne maximal. 

Cmax est le N° de colonne maximal (il est omis pour un tableau à 
une dimension). 

Imax est la longueur maximale de chaque élément. 
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Rappelons que le nom du tableau doit se terminer par le caractère $. 


Exemple 1. 


10 OPTION BASE O 
20 DIM TA$(5)*12,TV$(10,2)*26 


Ces instructions définissent : 


— l’origine des indices en zéro 

— un tableau de chaînes TAS de 6 (5 + 1) lignes, la longueur maxi 
de chaque chaîne étant 12 car. 

— un tableau de chaînes TV$ de 11 (10 + 1) lignes et 3 (2 + 1) 
colonnes, la longueur maxi de chaque élément étant de 26. 


Exemple 2. 


10 OPTION BASE 1 
20 DIM SDW$(12,23)*205 


Ces instructions définissent un tableau SDW$, de 12 lignes et 23 
colonnes, chaque élément ayant une longueur maxi de 205 caractères. 
Dans cet ouvrage, nous utiliserons toujours l’origine des indices en 1, ce 
qui est le plus commode. 


3. Un élément d’un tableau est repéré par son N° de ligne et éven- 
tuellement son N° de colonne : 
Nom du tableau (N° de ligne, N° de colonne) 


N° de ligne et N° de colonne sont des variables, des constantes ou 
plus généralement des expressions arithmétiques entières. 


Exemples : 

— GB$(5) désigne le cinquième élément du tableau GB$ 

— SXR$(3,6) désigne le sixième élément de la troisième ligne de 
SXR$. 

— JOURS (I + 9) désigne le 1+ 9e élément de JOURS. 


4. Le système entretient individuellement la longueur de chaque élé- 
ment d’un tableau au cours des diverses opérations (affectation, entrées, 
sorties etc...). 
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5. Le mot clé MAT suivi d’un nom de tableau indique qu’une opé- 
ration concerne tout le tableau. 
Ainsi : 

— l'instruction PRINT MAT DFS$ indique que tous les éléments du 
tableau DF$ doivent être imprimés. 


— L'’instruction MAT W$ = (’’XK45’”’) affectera la constante 


caractère *’XK45’”’ à tous les éléments du tableau W$. 


2.5 EXEMPLES DE TRAITEMENT SUR LES TABLEAUX DE CHAÎNES 


Plutôt que d’exposer d’une façon théorique le traitement des 
tableaux de chaînes de caractères, nous avons préféré commenter quel- 
ques programmes simples de manipulation de ces tableaux. 


Tous ces exemples utilisent un tableau M$ destiné à contenir les 
noms des douze mois de l’année. 


Exemple 1 : initialisation et impression du contenu d’un tableau, élément 
par élément. 


00010 ! E429 : inilialisation & impression d'un tableau,élément par élément 
09020 ! 

09030 OFTION HASE 1 ! L'origine des indices est en fi 
00940 DIM MECI2) #9 ! tableau de 12 éléments 

00050 de 9 car, maxi 

00060 Loinitialisation des 12 éléments 
00070 M&C1)= "Janvier": MEC2)= "Février": M£(3)="Mars" h£C4)= "Avril" 

00080 MECS)m "Mai": MECé)e "Juin": M$C7)=" Juillet": M$(8)="Aout" 

00090 M$(9)="Septembre":M#(10)="Octobre":ME(11)=" Novembre" 

00100 MECL2)="Décembre" 





09110 ! 

00120 FRINT NEWFAGE ! remise à blanc de l'écran 

004130 FOR Ix1 TO 12 ! début de La boucle d'impression 
00140 ! 

00150 FRINT "L'élémN°";1;" contient ";M$CI);" Longueur ";LENÇCM#CI)) 

00160 ! 

00170 NEXT I ! fin de La boucle d'impression 


L'élémN 
L'élém.NS 
L'éléminN 
L'élémN® 


contient Janvier longueur 7 
contient Février Longueur € 
contient Mars Longueur 4 
contient Avril Longueur 5 


L'élémnN® contient Mai longueur x 
L'élém.N® contient Juin Longueur 4 
L'élémin® contient Juillet longueur 7 


DO UE Lit} 


L'élémN® contient Aout longueur 4 
L'élémiN® 9 contient Septembre Longueur 
l'élémiN® 10 contient Octobre Longueur 7 
L'élémiN® 11 contient Novembre longueur 8 
L'élémiN® 12 contient Décembre Longueur 8 


a 
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On notera la boucle d’impression (lignes 130 à 170) : chaque élé- 
ment y est désigné par son indice I. La sortie sur écran permet de vérifier 
que chaque élément a bien sa longueur propre. 


Exemple 2 : Initialisation par DATA et READ, impression par 
PRINT MAT. 


090410 ! E1424 : initialisation par DATA et KEAD, impression par FRINT MAT 


00020 ! 






90050 OFTION HASE 1 L'origine deg indices est @n 
00040 DIM MECi2)x9 1 tableau de 12 éléments 

09050 | 

00060 l chargement du fichier interne 


90070 DATA Janvier Février ,Mars,Avril,Mai,duin 
00080 DATA Juillet,fout,Septembre,0Octobre,Novenbre,Décenbre 
00090 ! 





094100 READ MAT M4 ! Lecture fichier interne +2) M 
00110 FRINT NEUFAGE l remise à blanc de L'écran 
00120 FRINT MAT M4 Loimpression non formattée de M 





Les ordres DATA des lignes 70 et 80 écrivent les noms de mois sur le 
fichier interne. L’instruction READ MAT de la ligne 100 charge le 
tableau M$ d’un seul coup. On aurait pu remplacer cette instruction par 
la séquence : 


100 FORI = 1 TO 12 
101 READ M$ (1) 
102 NEXT I 


Le PRINT MAT (ligne 120) est un ordre d’impression non for- 
matté. D’une façon générale, cet ordre imprime ou affiche une ligne de 
tableau sur un ligne d’écran ou d’imprimante, chaque élément occupant 
une zone de longueur standard. La sortie continuera éventuellement sur 
la ligne suivante si la première ligne est pleine. 


Exemple 3 : redimensionnement du tableau M$. 


lt EÉ19% initialisation par DATA et READ et red imens ionnement 


OFTION HASE 1 ! L'origine des indices @est en À 
Din MECS ! tableau de 12 éléments 

l 

! chargement du fichier interne 


DATA Janvier , Février, Mars, Avril ,Mai,.luin 
DAT Juillet, fout,£eptembre ,0Gctobre,Novembre,bDécembre 
READ MAT ME Lecture fichier interne -} M 


HAT MEEMELSA, A) redimensionnement de M4 





00130 
90140 
00150 FRINT NEWFAGE remise à blanc de L'écran 


009160 PRINT nAT M$ 





1 
î 
1 
1 à 4 Lignes et 3 colonnes 
L 
1 
' 


impression non formattée de M$ 
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Janvier Février Mars 
Avril Mai Juin 
Juillet fout Septembre 
Üctobre Novembre Décembre 


Le début de ce programme est identique au précédent. L’instruction 
120, qui est une affectation précédée du mot-clé MAT, ne modifie ni le 
contenu, ni la longueur de chaque élément de M$. Par contre, elle va 
modifier ses dimensions : le (4,3) signifie que, désormais, M$ aura 4 
lignes et 3 colonnes. On le vérifie par le PRINT MAT de la ligne 160 : 
M$ est bien imprimé sous forme d’une matrice 4 x 3. 


Exemple 4 : impression d’un tableau par PRINT USING. 


00010 ! F123 : impression d'un tableau par FRINT USING ... MAT 
00020 ! 


00030 OFTION HASE 1 ! L'origine des indices est en 1 
00040 DIM M$(12)%x9 ! tableau de 1? éléments 
09050 ! chargement du fichier interne 


00060 DATA Janvier ,Février,Mars,Avril,Mai,dJuin 
00070 DATA Juillet,Aout,Septembre,0ctobre,Novenbre, Décembre 
900080 ! 





00090 KEAD MAT M$ 1 Lecture fichier interne > 114 
00100 FRINT USING 110: MAT M loimpression formattée de M4 
091410 FORM FOS 10,6xC 19 
00120 FRINT "" loimpression une Ligne blanche 
00130 FRINT USING 140: MAT MY loimpression formattée de M4 
00140 FORM FOS 10,5xC 12 
RUN 

Janvier Février Mars Avril Mai luin 

Juillet fout Septenbre Octobre Novembre Décembre 

Janvier Février Mars Avril Mai 

Juin Juillet fout Septembre Octobre 

Novembre Décembre 


HAS-5033 Le programme s'est terminé à La Ligne 99999790 


Nous avons imprimé M$ suivant deux formats différents : 


— le premier (ligne 110) indique que la ligne d’impression com- 
mence en position 10 (POS 10) et comprend six zones d’impression de 
dix caractères chacune (6*C 10). 


— le second (ligne 130) décrit une ligne d’impression commençant 
en 10 et composée de cinq zones de douze caractères. 


L'analyse des sorties obtenues par les instructions 100 et 130 nous 
permet de comprendre le mécanisme de PRINT USING : le système 
remplit chaque zone du FORM avec les élements de M$. Lorsque toutes 
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les zones sont pleines, il sort la ligne et retourne au début du FORM et 
ceci jusqu’à ce que tous les éléments de M$ soient imprimés. 


Exemple 5 : transfert de tableaux dans un autre. 






00010 ! E124 : transfert d'un tableau dans un autre 

00020 ! 

00030 OFTION KHASE 1 ! l'origine des indices est en { 
00040 DIM M$C12)x9,F4C6,2)xi2 l — M$ a 42 Lignes € Imax=9) 
00045 fl F$ a 6 Lig.& 2? col.Clmax=is 
00060 ! chargement du fichier interne 


09070 DATA Janvier,Février,Mars,Avril,Mai,dJuin 
00080 DATA Juillet,Aout,Septembre,0ctobre,Novenbre,Décenbre 


00090 ! 
09100 READ MAT MY ! Lecture fichier interne +) M 
094110 MAT Feng CZ, 4) !oOtransfert de M$ dans F$ -)> F4 a 3 Lignes,4 colonnes 
00120 FRINT Hét F$ l'oimpréession non formattée de 
FUN 

lanvrer Février Mars Avril 

Mai Juin Juillet Aout 

Septembre Octobre Novembre Décembre 


EAS-5033 le programme s'est terminé à La Liqne 99995/99 


L’instruction de la ligne 110 sert tout d’abord à changer les dimen- 
sions de P$ (comme dans l’exemple 2 ci-dessus). Elles passent de 6 lignes 
et 2 colonnes indiquées dans DIM à 3 lignes et 4 colonnes indiquées à la 
ligne 110. Elle attribue ensuite le contenu et la longueur de chaque élé- 
ment de M$ à l’élément correspondan tde P$. 


Cette instruction 110 équivaut à : 

P$(1,1)=M$(1) : etc. : P$(2,2)=M$(6) : etc. : P$(4,3)=M$(12) 
Si, à la ligne 110 nous avions écrit simplement : 

110 MAT P$ = M$ (sans indiquer de dimensions) 


P$ aurait pris les mêmes dimensions que M$, c’est-à-dire 12 lignes et une 
colonne. 
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OPÉRATIONS ÉLÉMENTAIRES SUR 
LES CHAÎNES DE CARACTÈRES 


Dans les deux chapitres précédents, nous avons appris (ou rappelé) 
au lecteur comment définir, initialiser les chaînes de caractères, comment 
les lire et les.écrire sur un fichier. Les instructions que nous avons vues 
sont suffisantes pour programmer les applications classiques de gestion : 
tenue de stock, paie, comptabilité etc. où les zones ’caractère”?’ ont des 
longueurs FIXES, où les libellés occupent toujours la même place dans 
la facture ou le bulletin de paie. 


Si maintenant nous voulons aborder les applications où on traite des 
mots de longueur VARIABLE - édition de lettres, génération de con- 
trats, recherche de documentation, par exemple - nous constaterons 
rapidement que les opérations que nous avons vues jusqu’ici ne permet- 
tent de traiter ces applications qu’au prix d’une programmation plutôt 
complexe. 


Essayons par exemple d’imaginer la programmation correspondant 
à l’opération la plus simple en traitement de texte : la « concaténation » 
c’est-à-dire l’assemblage bout à bout de deux chaînes pour en constituer 
une troisième. Il n’y a pas d’autre moyen que de considérer chaque 
chaîne comme un tableau d’éléments d’un caractère chacun et d’effec- 
tuer l’opération à l’aide de boucles FOR...NEXT. C’est ce qui est illustré 
par le programme ci-dessous : 
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600010 ! E300 : concaténation de deux chaines 

90020 ! 

00030 DIM AL(20)Kk1,H4$(20)#1,C4(40)%1 ! définition des tableaux 
90940 ! 

00050  OFEN fi "HAMEZ=FICHIER" 

00060 ! 


00070 READ £i,USING 80: MAT A$,MAT H£ EOF 210 

00080 FORM 200 1,20%C 1 

00090 ! : 

09100 EUR [Li TO 20 ! transfert de A$ vers C4 
09110 C4CT)= AS CI) 

00120 NEXT I 

00150 ! 

900149 FOR T=1 TO 20 Loaiout de K$ dans C4 
00150 C$CI+20)=A4 CT) 

00160 NEXT IT 

00170 

00160 FRINT USING 190: MAT C# 

) ) FORM 40%C 40 

00 > GOTO 70 

00210 STOF 





Procéder de cette façon est, bien sûr, possible - c’est ce que font 
ceux qui programment le traitement de textes en RPG, par exemple -, 
mais en BASIC cela risque de conduire à des délais de programmation, 
des tailles de programme et des temps d’exécution importants, sinon 
prohibitifs. 


C’est pourquoi les concepteurs du BASIC ont prévu des opérateurs 
et fonctions « caractère » qui jouent vis-à-vis du traitement de fexte le 
même rôle que les opérateurs et fonctions algébriques vis-à-vis du calcul. 
Nous allons au cours de ce chapitre et des deux suivants passer en revue 
ces opérateurs et ces fonctions « caractère ». 


3.1 OPÉRATEUR DE CONCATENATION 


L’opérateur’’&’’ (ampersand en anglais) permet de concaténer, 
c’est-à-dire de mettre bout-à-bout deux chaînes de caractères. 
L'opération : 

A$ & B$ 
donne comme résultat une chaîne formée des contenus de A$ et B$ et 


ayant comme longueur 11 + 12, 11 et 12 étant les longueurs respectives de 
A$ et B$. 
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Le programme conversationnel ci-dessous permet de visualiser le 
fonctionnement de cet opérateur : 


00019 ! EX0{ : opérateur de concaténation 
00020 ! 
200%0 INFUT "Entrer Les deux chaines à concaténer :": A$,R% 
99040 ! 
00050 CHEAS&RRTE ! concaténation de ÀA$ et KH£ --)} C4 
00060 ! 
70 FRINT "C4 contient ";C$;",sa Longueur est ";LENCC) 






0005 GOTO 30 
JN 
Entrer Les deux chaines à concaténer : AERC,12% 
CH contient ARCL23,5a Longueur est 6 
Entrer Les deux chaines à concaténer : " ABC "M," 124 " 
C$ contient AHC 123% ,sa Longueur est 19 








Entrer Les deux chaines à concaténer : "",AZEKTY 
CL contient AZERTY ,sa longueur est & 
Entrer Les deux chaines à concaténer : AZERTYUIOF, 1244567600 


EAS-5046 Ligne 50: dépassement de capacité pour zone caractère 


On notera en fin de ce programme que la condition d’erreur 
SOFLOW (dépassement de capacité) peut être détectée. 
Ajoutons que l’opérateur ’&’” peut être employé plusieurs fois dans une 
expression et peut servir à concaténer aussi bien des constantes que des 
variables « caractère ». 

On peut également concaténer une chaîne sur elle-même : dans ce 
cas, le nom de la chaîne figurera à gauche et à droite du signe ?’ =”?. 
Voici un exemple d’utilisation de cette possibilité. 


00010 ! E302 : constitution d'une chaine comprenant N fois Les memes caracteres 
00020 ! 

00030 )I DE: 5 U dimensiom maxi pour CAKR# 

00040 T ": CARE,N 

920050 





00060 ! 
09070 FOR 
09080 

00090 NEXT I 
00109 ! 
00105 F 


i TÜN 
CHACARSE 








RINT C# 


001410 Ce" l remise à zéro de La Chaine C4 
00130 GOTO 49 
RUN 


Entrer Le caractere et Le nombre N : *,60 
DE DE D DE DE DE DE DE DE DE DE DE M EÉE MC E DE EE JE D D DE M6 DE D 2 96 M ME D DE DE 9 DE me D D 9 DE 2 DE D NE DE DE 2 D nn 









Entrer Le ca tere et Le nombre N FE 74 

ARC RE SRI DRE SRI SRE SRI RS LRS SES SES LAS SNS SAS SERIES LES IRIS REISS 
Entrer Le caractere et Le nombre N : "AH 1 ",10 

AH CU AH OT AH OT AH OT AH OT AM OT AH 1 AH! AH 1 AH ! 

Entrer Le caractere et Le nombre N : 0,0 


BAS-5055 Le programme s'est terminé à La Liane 56/2 
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On remarquera l’instruction ligne 110 : elle affecte à C$ une chaîne 
de longueur nulle. Si elle avait été omise, le programme aurait continué à 
concaténer la nouvelle chaîne sur l’ancienne, jusqu’à avoir un dépasse- 
ment de capacité. 


3.2 OPÉRATIONS « SOUS-CHAÎNE » 


L'opérateur sous-chaîne ?’:” (en anglais : substring) permet 
d’extraire et de modifier des ensembles de caractères d’une chaîne don- 
née. 


L'expression sous-chaîne a la forme : 
A$(x:y) 


ou A$ est une chaîne, x et y deux expressions arithmétiques positives et 
entières. 


Voici quelques exemples d’expressions sous-chaînes : 


A$(3:9) 
WWS$(X:Y) 
XS$(X + 8:Y/6) 
(A$&RS) (C-1:M) 


Une expression sous-chaîne peut être employée de deux façons dif- 
férentes : 


— à droite du signe égal, elle sert à extraire un ensemble de caractè- 
res appartenant à une chaîne. 


— à gauche du signe égal, elle sert à modifier une chaîne, c’est-à- 
dire à y remplacer des caractères par d’autres, à en supprimer ou à y insé- 
rer de nouveaux caractères. 


Nous allons voir ces différentes opérations en détail. 
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3.3 EXTRACTION D'UNE SOUS-CHAÎNE 


Dans ce cas, l’opérateur ”’:”” figure à droite du signe égal. L’expres- 
sion : 
A$(x:y) 
extrait une sous-chaîne de longueur y-x-1 contenant les caractères qui 


vont des positions x à y de A$. Voyons ce que cela donne sur le pro- 
gramme E303 qui suit : 


00910 ! ES303 : extraction d'une sous-chaine d'une chaine 

00020 ! 

00630 DIM CH$x32, SC 

09040 CH CARCDEFGHIJKLMNOFORSTUUYXYZ" 

00050 INFUT "positions début & fin de La sous-chaine à extraire ?": DER,FIN 
0906) ! 





00079 SCHECHECDER: FIN) l'extraction sous-chaine depuis DER jusqu'à FIN 
60080 ! 

09090 # ; La sousg-chaine contient M SC$;",sa longueur est ";LENC£EC 
09109 MN: GOTO 50 








RUN 
F itions début & fin de La sous-chaine à extraire ? 5,8 
> La sous-chaine contiert EFGH,sa longueur est 4 





positions début & fin de La gsous-chaine à extraire 7? 20,20 
-} La sous-chaine contient T,5a Longueur est À 





sitions début & fin de La sous-chaine à extraire ? 9,5 
> La sous-chaine contient ,£sa Longueur est 0 





positions début & fin de La sous-chaine à extraire ? -1,20,56 
-} La sous-chaine contient ARCDEFGHIJKLMANOFORSTU,sa Longueur est ?f 


positions début & fin de La sous-chaine à extraire ? 


En parcourant les résultats obtenus, nous remarquons que : 
— si x est supérieur à y, la chaîne extraite est de longueur nulle. 
— si x ou y sont négatifs, ils sont pris égaux à 1 par le système. 


— si X ou y ne sont pas entiers, ils sont arrondis à l’entier le plus 
proche. 


3.4 INSERTION D'UNE CHAÎNE A L'INTÉRIEUR D'UNE AUTRE CHAÎNE 


Pour cette opération et les suivantes, l’opérateur « sous-chaîne » 
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figure à gauche du signe égal. L’instruction utilisée pour l'insertion 
d’une chaîne dans une autre aura donc la forme suivante : 


A$(x:y) = 


B$ 


où A$ est la chaîne à modifier, x la position de A$ avant laquelle on 
désire faire l’insertion, y un entier inférieur à x (la plupart du temps, on 


prend y égal à zéro) et B$ une express 


ion caractère qui contient les carac- 


tères à insérer dans A$. Après exécution de cette instruction la longueur 
de la chaîne A$ est augmentée de celle de B$. 


Nous avons illustré le fonctionnement de cette opération par le pro- 


gramme conversationnel ci-dessous : 





0000 |! E304 Insertion d'une chaine à L 
Ü ! 
R$="123456789" 
ÉRINT NEUFAGE 
FRINT "K$ contient au départ ";K4: 
' 
00060 INFUT "Entrer La chaine à insére 
00070 ! 
09080 AF=K4 ! restauration 
00090 FRINT " --) avant insertion,A$ con 
091090 AE(F:0)=2:SC4 loinser tion de 
00110 ! 
00120 FRINT " --) après insertion, A$ con 
00430 FRINT "" 
00149 GOTO 60 


K4& contient au départ 1234454749 
et La 
contient 
contient 


la Chaine à 1nsé 
avant insertion, AS 
après inser tic, 


Entre 
“) 


er P es ! 


US 








Entrer La chaine à insérer et La pos 
-) avant insertion, A$ contient 
m) aprés insertion. AE contient 
Entrer La chaine à insérer et La posi 
“) avant insertion, AS contient 125 
aprés insertion, contient 12 34° 
Entrer La chaine à imsérer ét La posi 
avant insertion, À contient 4 
—) aprés insertion,ñät contient 1234 
Entrer La chaine à insérer et La pos 
> avant insertion, A contient 
-) après insertion, 4$ contient 
Entrer La chaine à insérer et La posi 















‘intérieur d'une autre chaine 


FRINT 


et La position d'insertion 1": SC&,F 





vakeur initiale de À 
MiAT;",sa longueur est 
de La position F 


de La 
tient 


SC4 à partir 





Mi LEN CAS) 
de À 





tient "Ag; " Longueur est"; LENCAE) 


tion d'insertion AZER,5S 
) 5 Longueur est ©? 
?,sa Longueur est 





insertion x #2 , À) 
ï _Longueur est ÿ 
sa Longueur 


Aion qd" 


est 13 


tion d'insertion 209 
156749 ,ga Longueur est 
56709 +++4+, Longueur 


HEHEE, 
$ 
est 1.4 


Sa 


(s] 


est 


tion d'insertion 
567189,sàa Longueur 5 
56789,sa Longueur 





14 


est 


HE d' 


insertion 


QNAUEUT 








inser Cion 


tion d' 
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En lisant les résultats obtenus, le lecteur peut voir que : 


— si la position d’insertion x est inférieure ou égale à un, l’insertion 


se fait bien avant le premier caractère de la chaîne d’origine. 


— si, par contre, x est supérieure à la longueur de la chaîne à modi- 


fier, l’insertion se fera après la dernière position de cette chaîne. 


3.5 REMPLACEMENT D'UNE SOUS-CHAÎNE PAR UNE CHAÎNE 


Il s’agit maintenant de remplacer un groupe de caractères apparte- 


nant à la chaîne à modifier, par un autre groupe formant une chaîne, les 
deux groupes n’ayant pas forcément la même longueur. 


L’instruction de remplacement a exactement la même forme que 


instruction d’insertion vue au $ précédent : 


A$(x:y) = B$ 


A$ est la chaîne à modifier, B$ la chaîne ou l’expression « caractère » 
contenant la modification, x et y les positions de début et de fin, dans A$, 
des caractères à remplacer (y étant évidemment supérieure ou égal à x). 
La longueur de la chaîne après modification est égale à la longueur ini- 
tiale de cette chaîne, augmentée de celle de la chaîne de remplacement et 


diminuée de celle de la sous-chaîne remplacée. 


Voici un exemple de programme utilisant cette opération : 








00010 ! E305 : Kemplacememt d'une sous-chaine par une chaine 

00020 R$="123456749" 

00030 FRINT NEUFAGE l'oremise à blanc de L'écran 

00035 ! 

09040 INFUT "Entrer Les pos,.début & fin et La chaine remplaçante L D,F,SCY 
00050 ! 

00060  AFERE l restauration de La valeur cimitiale de A% 

00970 ! 

00080 FKINT " } avant remplact,ñ$ contient ";Â$;",s5a Longueur est ", LENS) 
00090 ! 

00100 ASCD:FIELCE l remplacement des positions D à F de 4% par SC 
00110 ! 

00120 FRINT " --) après remplact,A$ contient ";A$;",sa longueur est ";LENCAY) 
00130 ! 


09149 


PRINT "Mt: GOTO 40 
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Entrer Les pos.début & fin et La chaine remplaçante 
-} avant réemplact,4$ contient 1234546789 longueur 
es > après remplact,ô$g contient 1##*3454799 ,sa Longueur est {4 








5 à 









Les pos.début & fin et La chaine remplagante : 2,7,7 


> avant remplact,A$ contient 1234546789 ,s5a longueur & 
-) après remplact,At contient 172689,sa longueur est 4 





$ 


E 










ntrer Les pos,.début & fin et La chaine remplaçante 
re) avant remplact,A$ contient 1235456789 ,sa longueur 
mr) aprés vremplact,A$ contient 12  546789,sa longueur 





Entrer Les pos,débiut & fin et La chaine remplagante : ©,0,2772Z2 
—) avant remplact,A$ contient 123456799,sa longueur est S$ 
mp) après vremplact,ÀY% contient Z2Z2Z27124%4456789 ,sa Longueur est {4 






5 pos.début & fin et La chaine remplaçante : 20,22,€4(())) 


remplact, At contient 123456789,sa longueur est 9 
re) aprés remplact, A contient 12345467/89(C0))),sa Longueur est 415 








Entrer Les pos,.début & fin et La chaine remplaçante 


En lisant les résultats, le lecteur constatera notamment que si x et y 
sont nuls ou tous deux supérieurs à la longueur de A$, l’opération 
revient à une insertion en début ou en fin de chaîne. 


3.6 SUPPRESSION D'UNE SOUS-CHAÎNE A L'INTÉRIEUR 
D'UNE CHAÎNE 


Il s’agit tout simplement d’un cas particulier de l’opération de rem- 
placement : pour supprimer un groupe de caractères ou sous-chaîne, il 
suffit de le remplacer par une chaîne de longueur nulle. l’instruction de 
suppression aura donc la forme : 


A$(x:y) ="""’ ou C$ 
C$ étant une chaîne ‘’nulle”. 


où x et y sont les positions de début et de fin du groupe à supprimer. 


L'exemple ci-dessous illustre cette opération. 
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00640 
00920 





(eo) 
00035 
09049 


00050 
80060 
00070 
00080 
60090 
00100 
00110 
00120 
60430 
90140 





E306 : Suppression d'une sous-chaine 

"1234567809" 

FRINT NEUFAGE remise à blanc de L'écran 

! 

INPUT "Entrer Les pos,.début & fin des caractères à supprimer 
1 
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ER 2 NPA LP 


ABSRE L Faro tou de La valeur initiale de Â% 

l 

PRINT Mo} avant suppress., ,A$ contient ";A$;",sa longueur est ";LENCAS 
! 

CABCPL:FRISSCE l Euppression des positions F4 à F2 de A$ par SC 
l 

PRINT Me) après suppress, , Ag contient ";A$g;",sa longueur est ";LENCAS 
1 


FRINT "“": GOTO 40 








Entrer Les pos,début & fin des caractères à supprimer : 2,5 
“gs > avant suprpre: AE contient 1244567/89,sa longueur est 9% 
ve) après suppr AE contient 16789,ca Longueur est 5 

Entrer Les 


posg.début & fin des caractères à supprimer : 5,2 
“+ avant £suppress, ,A% contient 1234546789 ,5sa longueur est 9 
) après suppress, ,AŸ% contient 123456789,sa longueur est 9 






Entrer Les pos,début & fin des caractères à supprimer 2,2 
avant suppr .,n$ contient 123456/09,sa longueur est 9 


mr) après suppress.,AS contient 13456789,6a Llonqueur est 8 








à, 


Entrer Les pos,.début & fin des caractères à supprimer 9 
-) avant £suppres AS contient 123456789,sa Longueur est 9 
me) après SUPPr AE contient ,ga Longueur est © 








Entrer Les pas. .début & fin des caractères à supprimer 


3.7 CONVERSION D'UNE ZONE NUMÉRIQUE EN CHAÎNE 
DE CARACTÈRES ET VICE-VERSA 


L'utilisateur est fréquemment amené à composer un texte avec des 
variables ou constantes « caractère » bien sûr, mais aussi avec des résul- 
tats de calcul. Les opérations que nous venons de voir (concaténation, 
insertion, etc...) ne prenant en compte que des chaînes, il faut convertir 
au préalable ces zones numériques en chaînes de caractères. 


Inversement, on peut vouloir extraire d’un texte un chiffre à partir 
duquel on désire faire des calculs et il faut donc convertir une sous- 
chaîne en zone numérique. Les fonctions STR$ et VAL permettent de 


réaliser ces conversions. 


La fonction STRS$ (de l’anglais STRing) a la forme : 


STR$(N) 
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Elle convertit l’expression numérique N en chaîne de caractères. 
Voyons sur le programme-exemple ci-dessous comment marche cette 
fonction : 


00010 ! E307 conversion d'une zone numérique en chaine 
29029 ! 

00030 INFUT "Entrer Le nombre N 2": ON 

00040 ! 


90059 CH$ESTES CN) ! conversion de N en chaine 

00060 ! 

00070 FRINT "---) N converti en chaine contient MN;" Longueur :";LENCCH#$) 
60080 FRINT "": GOTO 30 

run 

Entrer Le nombre N 12345 

-) N converti en chaine contient 12345 longueur 3 
Entrer Le nombre N°: 000145 

-—-)N converti en chaine contient 145 Lonaqueur : 3 
Entrer Le nombre N -12,45 

--—}) N converti en chaine contient 12,45 Longueur : 6 
Entrer Le nombre N 12345678 

mm.) N converti en chaine contient 1,23457E+7 Longueur : 10 


Entrer Le nombre N 


Nous constatons que : 


— Ja fonction STR$ supprime les zéros non significatifs 

— elle tient compte du signe et du point décimal 

— elle édite la valeur numérique en notation exponentielle (E + ...) 
si cette dernière dépasse la longueur « standard ». 


La fonction inverse VAL (de l’anglais VALUue) a la forme : 
VAL(A$) 


où AS est une chaîne de caractères, ou plus généralement une expression 
caractère. 


En lisant l’exemple ci-après, nous voyons que la fonction VAL 
fonctionne bien à l’inverse de CHRS$. Notons toutefois que si nous 
essayons de convertir en zone numérique une chaîne comprenant des 
caractères non numériques, une erreur de conversion (CONV) se pro- 
duit. 
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009019 ! E308 : conversion d'une chaine en zone numérique 
09020 ! 
09030 INFUT "Entrer La chaine CH$ :": CH$ 





60040 ! 

à N=VAL (CCH$) ! conversion de CH$ en zone numérique 
00060 ! 
09070 FKINT "---} CH$ convertie en zone numérique contient : ";N 
09980  FRINT "": GOTDO 39 
run 
Entrer La chaine CH$ : 1234 
mm) CHE convertie en zone numérique contient : 1234 
Entrer La chaine CH$ : -12,456 
-) CH$ convertie en zone numérique contient -12.454 
Entrer La chaine CH$ : +678 
mr) CH$ convertie en zone numérique contient 678 


Entrer La chaine CH$ : DF56° 


HAS-5060 La Ligne 50 contient une erreur de conversion de données 


3.8 CONCLUSION : EXPRESSIONS « CARACTÈRE 


Au cours de ce chapitre, nous avons étudié des opérateurs ’’carac- 
tère””’ - ”’&’”’ et ”’:”” - et une fonction ’’caractère’’ - STR$. Ces opérateurs 
et fonctions permettent d’écrire, comme nous l’annoncions au début du 
présent chapitre, des expressions ’’caractère”” : les règles d’écriture de ces 
expressions sont les mêmes que pour les expressions algébriques. Les 
parenthèses, en particulier y jouent le même rôle. Voici quelques exem- 
ples d’expressions ’’caractère’”’ dont vous pourrez évaluer le résultat : 
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00010 ! E309 : EXEMFLES D'EXFRESSIONS "CARACTERE", 





00020 ! 

00030 A$="0123456789" 

00040 H$="ARCDEFGHI J" 

00050 ! 

00060 XA$=CH$S(S: BDE&STRÉ(12345)&kASC7:9))(2:4141) 
00070 ! 

00080 XEH$=KRS(5:11)&STR$C-12,998)(3:6) 
00090 ! 

00100 XC$=ES$ 

001410 XCHSCVALCASCL: 2) VALCAFCS:5)DDE="E" 
00120 ! 

00130 XD$=A$(2:5) 

00140 XD$(3:0)=STR$(VAL(AS(2:6))-152)8" WWW " 
00150 ! 

00160 : XE$=ER$ 

00170 FOR I=f TO 4 

00180 XE$CI:1)="+++" 

00190 NEXT I 

00200 1! 

00210 XF$=A$ 

00220 FOR J=6é TO 2 STEF -{ 

00230 XF$(J:4)="xx" 

00240 NEXT J 

00250 ! 

00260 FRINT NEUWFAGE 

00270 FRINT "XAg=";XA$: FRINT "" 
00280 FRINT "XH$=";XH$: FRINT "" 
00290 FRINT "XC :XC$S: FRINT "" 
00300 FRINT "XD$=";XD$: FRINT "" 
00310 FRINT "XE$=";XE$: FRINT "" 
00320 PRINT "XF$=";XF$: FRINT "" 


XA$=FGH1234567 
XH$=EFGHIJ2,99 
XC$=ARCDEFGHIJ 
XD$=1212193 WWW 34 
XE$=+++++#+++++RCDEFGHIJ 


XF$=0#####4##56789 


EXERCICES 


1. Édition d’une date en clair 
On demande d'éditer en clair une date entrée au clavier sous forme 
numérique JJMMAA. Par exemple : 


10578 sera éditée sous la forme 1er mai 1978 
271145 sera éditée sous la forme 27 novembre 1945 


Voici la liste du programme correspondant et un exemple de sorties au 
terminal. 
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00010 ! E3ii Edition d'une date en clair 
00020 ! 
00030 OFTION BASE 
00040 ! 
00050 DIM THN&C12)#410 ! définition de La table des noms de mois 
00069 DATA Janvier,Février,Mars,Avril,Mai,Juin,Juillet,Aout,Septembre 
00070 DATA Octobre,Novembre,Décembre 
90080 READ MAT TMN$# ! chargement de La table des noms de mois 
00090 ! 
00100 FRINT NEUFAGE 
001410 ! 
00120 LINFUT "Entrer La date : ": D$ 
00130 IF D$="" THEN STOF l'arret si longueur date nulle 
00140 IF LEN(D$)=6 THEN SUITE ! test si date à 6 car. 
00150 IF LENCD$S)#5 THEN SUITA ! test si date à 5.car. 
00160 ! : 
00170 FRINT D$,": date invalide" ! affich.message si Llong,erronée 
00180 FRINT " " 
00190 GOTO 120 
00200 ! 
SUITA: D$="O"&D ! zéro à gauche si 5 de Llona. 
SUITE: J$eD$ (C1 :2) l'extraction du jour 
] J$CL:1)="O0" THEN J$CL:1)=" " ! vemplacemt zéro à gauche jour 
IF OJEC{: " 4" THEN J$z'"{ier" ! traitement premier du mois 
2 MeVAL(D#(C3:4)) l'extract./convers, mois en num, 
00260 ME TMNE CM) ! consultation tableau nom mois 
00270 Age" 19 "&D$(5 : 6) ! composition année 
00280 DOCLAIKS= JA" "AMSRAS ! composition date en clair 
00290 ! 
00300 FRINT "La date en clair est "; DCLAIRS 
00310 FRINT "": GOTQO 120 
Entrer La date 11281 
La date en clair est fer Décembre 1981 
Entrer La date 011280 
La date en clair est ter Décembre 19780 
Entrer La date 150182 
La date en clair est 15 Janvier 19€? 
Entrer La date 111111 
La date en clair est ii Novembre 1914 
Entrer La date 011200 
La date en clair est fer Décembre 1900 
Entrer La date 1234 
1234 date invalide 


Entrer La date 


Ce programme ne présente pas de difficultés particulières. On notera 
simplement l'emploi de la fonction VAL (ligne 250) pour convertir le mois 
qui va servir d'indice en numérique. 


2. Édition d’une somme en toutes lettres. 


Il s’agit d’un problème très ancien qui s'est posé au tout début de l’ère 
informatique lorsqu'il s’est agi d'imprimer des chèques, des traites etc. 
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par ordinateur et on ne le résolvait pratiquement qu’en langage machine ou 
en assembleur. 


On entre au clavier du terminal une somme en CENTIMES de 11 chif- 
fres maximum et on demande d'éditer cette somme en toutes lettres 


(majuscules), en respectant si possible la grammaire. 


00010 
00920 
00030 
00040 
00950 
00060 
00970 
00080 
00090 
00400 
00110 
001:0 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 





00250 
00260 
00270 
00280 





00550 
00360 
00370 
00380 
00370 
00400 
90410 
00420 
00430 
00446 
00450 
00460 
00470 
00480 
90490 
00500 
00510 
00520 
90536 
00540 














EST? Edition d'une somme en toutes lettres 
OPTION HASE 0,LFREC : origine des indices en ZEKO 
et calcul en double précision 
DIM TCHK255,TF$#255 ,LÉ#255 ! chaines pour édition 
DIM TU$(19)x8 ! définition de La table des unités 
DATA "",UN,DEUX,TROIS,QUATRE,CINGQ,SIX,SEFT,HUIT,NEUF ,DIX, ONZE, DOUZE 
DATA TREIZE, QUATORZE, QUINZE, SEIZE,DIX SEFT,DIX HUIT,DIX NEUF 
READ MAT TU ! chargement de La table des unités 
DIM TD$(9)x20 ! définition table des dizaines 
DATA "",DIX,VINGT,TRENTE, QUARANTE , CINQUANTE, SOIXANTE, SOIXANTE DIX 
DATA QUATRE VINGT,QUATKE UINGT DIX 
READ MAT TD$ EUF 169 ! chargement table des dizaines 
FRINT NEWFAGE ; l remise à blanc écran 
INFUT "Entrer La somme à éditer en centimes VEUX 
IF S=0 THEN STOF l'arret si somme nulle 
TC$="": TF$="" ! RAB des Libellés cents et francs 
CT=REMCS, 100) ! calcul des centimes 
K=INTCS/100) 
FeREMCK, 1000) ! calcul des francs 
TEINT(K/1000) 
K=REMCT, 1090) ! calcul des Kfrancs 
T#INT(T/1900) 
MEREMCT,1000) ! calcul des Mfrancs 
IF CT=9 THEN 340 centimes nuls 
CDU=CT: GOSUR 560 éditions des centimes 


centime" 

THEN TCS=TC$&"S" 
THEN 500 

GOSUE 560 


n +&" 
LF CToi 
IF K#0 








THEN 410 
GOSUR Séû 


CDUEK : 
IF KeÂ THEN Ldé="" 


TF$ELE&" MILLE 
IF Me0 THEN 456 
CDU=nM: GOSUE 560 

IF M4 THEN $$=" MILLIONS " ELSE S4 
IF4ELE&SLETES ! 
S$=" francs 
IF Kej THEN S54:" franc 
IF K=9 AND F=09 THEN S$z"de francs " ! 
TFSETFEESLETCE ! 
GOTOQ 520 

TF&=TCS ! 


"&TF 





“somme en Lettres "Tr 


"": GOTO 180 


FRINT 
FRINT 


mise au pluriel 
francs nuls 
édition des francs 
Kfrancs nuls 

édition des Kfrancs 


mille francs 

Mfrancs nuls 

édition des Mfrancs 

million " 

singulier pour 1 Franc 

il n'y a que des Mfrancs 
Libellé final 

Libellé final © francs nuls) 
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00560 ! Sous-programme d'édition sur trois chiffres 
00570 ! © Le Libellé composé a partir de CDU est L# ) 
00580 ! 

00590 L£="" 

00600 IF CDU=0 THEN RETURN 
00610 DU=REMCCDU, 100) 

00620 CÆINT(CDU/109) 

00630 IF DU)>O THEN 670 

00640 LH=TUSCC)&" CENTS" 
904650 IF Cerf THEN Lé="CENT " 
00660 RETURN 

00670 GOSUE 760 

00680 IF © 
90690 ÎF € 


retour si nul 
calcul dizaines-unités 
calcul chiffre des centaines 


Libellé si diz-unité nulles 
exception 100 


appel s/p édition 2 chiffres 
#0 THEN RETURN ! centaines nulle 
i THEN 720 ! 





09700 L$= "CENT "&LS ! composition Libellé si {xx 
00710 RETURN 

00720 L$=TUSCC)&" CENT "&L+ ! composition Libellé 

00730 RETURN 

00740 ! 

00750 ! 

00760 ! Sous-programme d'édition sur deux chiffres 

90770 ! ( Le Libellé composé à partir de DU est L$ ) 

00780 ! 


00790 U=REMCDU, 10) 

00800 DÆINT(DU/410) 

00810 IF DU)19 THEN 849 

00820 L$=TUS (DU) 

00830 RETURN 

00840 IF U>30 THEN 880 

90850 L$=TD$ CD) 

90860 IF DUx80 THEN LeL$a"s" 
00870 RETURN 

00860 IF Urf THEN CL$se" et " ELSE CL$s" "1 determination Liaison diz.-unité 
00890 IF DU=81 OK DU=91 THEN CL$=" " l'exception 81 et 9i 

00900 IF D=7 OK D=9 THEN 939 l'exception 7x et 9x 

00910 L$=TDSCD)ECLSATUS(U) ! Libellés pour 3x,4x,5x,6x,8x 
00920 RETURN 


calcul du chiffre des unités 
calcul du chiffre des dizaines 


Libéllé pour chiffres 4 à 20 


Libellé pour chiffres Terminé © 
exception pour 80 





00930 L$=TD$CD-41) &CLE&TUSCU+1TD) ! Libellés pour 7x et 9x 
00940 RETURN 1 x#xx fin du S/F ##%%%x 
Entrer La somme à éditer en centimes : La 

somme en Lettres : DOUZE centimes 

Entrer La somme à éditer en centimes : 189 


somme en Lettres : UN franc QUATRE VINGT NEUF centimes 


Entrer La somme à éditer en centimes : 14400004 
somme en Lettres : CENT ONZE MILLE francs UN centime 


Entrer La somme à éditer en centimes : 506000004104 
somme en Lettres : CINQ CENT SIX MILLIONS UN francs QUATRE centimes 


Entrer La somme à éditer en centimes : 802009000000 
somme en lettres : HUIT CENT DEUX MILLIONS de francs 


Entrer La somme à éditer en centimes : 999999909999 

somme en lettres 

NEUF CENT QUATRE VINGT DIX NEUF MILLIONS NEUF CENT QUATRE VINGT DIX NEUF MILLE 
EUF CENT QUATRE VINGT DIX NEUF francs QUATRE VINGT DIX NEUF centimes 


Entrer La somme à éditer en centimes : " 
somme en lettres : UN centime 


Entrer La somme à éditer en centimes 
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Ce programme est nettement plus complexe et plus long que le précé- 
dent car il doit prendre en compte tous les pluriels et les diverses excep- 
tions aux règles de base. Pour simplifier la compréhension du programme, 
nous avons écrit deux sous-programmes, l’un appelant l’autre, pour éditer 
les nombres à deux et trois chiffres (lignes 560-730 et 740-940). 


Pour simplifier la programmation, nous aurions pu charger et utiliser un 
tableau de chaînes correspondant aux libellés des nombres de 1 à 99, mais 
il nous a paru plus intéressant de programmer toutes les exceptions, une 
par une. 


Ce programme est un bon exemple de l'emploi de l'opération de con- 
catération. 


3. Génération d'un histogramme horizontal 


Les programmes de gestion aboutissent bien souvent à des résultats 
qu'on désire visualiser sous forme d'histogramme, c'est-à-dire sous forme 
de segments dont la longueur ou la hauteur est proportionnelle à la valeur à 
représenter. 


Pour cet exercice, on entre au clavier un mois (02/82, par exemple) et 
quatre chiffres représentant les ventes mensuelles de quatre articles À, B, 
C et D. 


Après chaque entrée, on imprime le mois et une chaîne de 100 car. 
composée de quatre segments. Chaque segment représente les ventes 
d'un article et se compose d'un caractère répété p fois, p étant le pourcen- 
tage relatif de la vente de l’article considéré par rapport à la vente totale. 
On utilise le ‘+’ pour l’article À, ‘’o’’ pour B, le ‘’-’’ pour C et le ‘’*’’ pour 
D. 


Par exemple si les ventes de A,B,C et D ont été de 50, 60, 80 et 10 
recpectivement, cette chaîne se composera de 25 (50/2) ‘+’, 
de 30''o’’, de 40’'-"" et de 5'’*””’. 


Voici la liste du programme correspondant : 
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0000 
00020 
00030 
00040 
90050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 





00220 
00230 





E314 


DIM LIGNE4#100 
FRINT NEWFAGE 


INFUT "Entrer Le mois 
IF M$= "FIN" THEN STOF 


VT=VA+UVRH+#+UC+UD 
FA=ROUND(UA#x£00/UT,0) 
FH=ROUND(URx{400/UT,0) 
FC=ROUND(UC#{00/VT,0) 
FD=100-FA-FE-FC 


LIGNES="" 


FOR I=f TO FA 
LIGNESELIGNES& "+" 

NEXT I 

FOR Ii TO FE 
LIGNESELIGNES&"O" 

NEXT I 

FOR I=f TO FC 
LIGNES=LIGNES&"-" 

NEXT TI 

FOR Ixi TO FD 
LIGNESE#LIGNES&"X" 

NEXT TI 


et 
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remise à blanc de l'écr 


Les ventes de À,H,C,D :": 


1 
! 
1 
1 
1 
|: 
1 
0 
1 
1 
1 
0 


calcul des pourcentages 


chaine nulle dans Ligne 
boucle pour constituer 
concaténation d'un + 
fin de boucle 

boucle pour constituer 
concaténation d'un - 
fin de boucle 

boucle pour constituer 
concaténation d'un x 
fin de boucle 

boucle pour constituer 
concaténation d'un * 
fin de boucle 


FRINT £255 ,USING 290: M$, LIGNES," L 


01/01,12,23,5 
O2/61 515 


OS/OA 5 82 5 8 9 1 
06/601,44,22,1 
07/9170: 56,2 
08/821,99,66,% 
09/81,120,88;, 


00290 FORM C 5,FO0S 8,0 100,SKIF,C 4 

00295 ERINT "" 

00300 GOTQ 50 

Les entrées et l'histogramme édité : 

Entrer Le mois et Les ventes de AsU,C,N À 
Entrer Le mois et Les ventes de A,K,C, 0 
Entrer Le mois et Les ÿehte de A,H,C, 0 + 
Entrer Le mois et Les ventes de A,R,C0, I 3 
Entrer Le mois et Les ventes de A,R,C, 0 + 
Entrer Le mois et Les ventes de À,K,C,0 3 
Entrer Le mois et Les ventes de ARC, +: 
Entrer Le mois et Les ventes de A,H,C,U 3 
Entrer Le mois et Les ventes de A,R,C,U $ 
Entrer Le mois et Les ventes de A,H,C,I 4 
Entrer Le mois et Les ventes de A,R,C,I + 
Entrer Le mois et Les ventes de A,H,C,I 3? 


12/81,0,45,41 


an 
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M$,VA, VB, VC, UD 


relatifs 


segmemt 


segmemt 


segmermt 


segmemt 


6578 


Us V0 TS 
0%/91,21,189, 959594 
04/81,31,15,99,65 


00,67 
25,689 
02,123 
02,256 


PR # 201 


10/81,56,52,99,78 
11/91,42,689,85, 71 


32 


corresp.à 


corresp.à 


corresp.à 


corresp.à 
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TB/TT 
TG/OT 
F8,/6Q 
30 
T2/2.0 


T8/90 





T8/60 


Lee) 


T8/£0 
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Ce programme utilise des boucles FOR .… NEXT (instructions 160, 
190, 220 et 250) pour constituer des chaînes de longueur proportionnelle 
à un entier. Rappelons au lecteur que la fonction BASIC « ROUND », 
employée lignes 90 à 110 permet l’arrondi à la valeur la plus proche (ici, à 
l'entier le plus proche). 


4. Détection des mots dans un texte 


Un texte se compose de mots séparés par des blancs et/ou des signes 
de ponctuation. Pour cet exercice, on lit à partir du clavier une ligne de 
texte (64 car. maxi). On demande de séparer chaque mot de la ligne du mot 
suivant par un'’/"" en supprimant les blancs et les signes de ponctuation 
rencontrés. On considèrera qu'il peut y avoir plusieurs caractères sépara- 


teurs (blancs ou signes de ponctuation) à la suite. 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 


La ligne modifiée sera affichée à l'écran du terminal. 


La programme, les entrées et les sorties sur écran se trouvent ci-après: 


E315 Détection des mots à L'i 


DIM CH$xi28 


ntérieur d'une chaine de caractères 


TOSSS" re PDC ! chargement chaine des car.séparateurs 
FRINT NEUWFAGE 
LINFUT "Entrer La chaine à modifier :": CH$ 
IF CH$="" THEN STOF ! arret si chaine "nulle" 
CHE=",MACHE&", " ! séparateur devant & derrière La chaine 
FOR I=f TO LEN(CH#$) ! boucle remplacenmnt separateurs par "/! 
FOR J=1 TO LENCTES$) ! boucle de test si séparateur 
IF CH$CI:I)C)TCS$(J:J) THEN 160 
CH$CI:I1)="/" ! remplacement séparateur par "/" 
GOTO 170 
NEXT J ! fin de boucle de test 
NEXT I ! fin de boucle de remplacement 
1 
! boucle de suppression des "/" contigui 
I={ l'initialisation indice 
IF CH$CI:I)C)>"/" THEN 260 ! test si "/" 
IF CH$CI+1:1+1)€)"/" THEN 260 ! test si "/" dans position suivante 
FRINT "La chaine intermèd.contient :";CH$ 
CH$CI+1:I+4)="" ! suppression du "/" pos,.suivante 
IF I=LENCCH$) THEN 300 ELSE 220 ! test si terminé 
IF I=LENCCH$) THEN 300 ELSE 270 !l‘test si terminé 
I=1+1 l incrémentation indice 
GOTO 210 ! retour suite boucle 
! fin de La boucle de suppression 
FRINT "" 
FRINT "La chaine modifièe contient ":CH$ 
FRINT "“": GOTO 70 
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Entrer La chaine à modifier : ERT;,,,.::RTY PI PE PE | 


La chaine intermèd,.contient 
La chaine intermèd.contient 
La chaine intermèd,contient 
La chaine intermèd.contient 
La chaine intermèd.contient 
La chaine intermèd,.contient 
La chaine intermèd,contient 
La chaine intermèd.contient 
La chaine intermèd.contient 









T////RTY///i/ 
T///RTY///À/ 
T//KTY///1/2 





La chaine modifièe contient : /ERT/RTY/41/2/3/ 


Entrer La chaine à modifier 


Cet exercice illustre bien une des fonctions de base du traitement de 
textes. La recherche de mots est utilisée aussi bien dans le traitement de 
documentation (recherche de mots-clés, indexation automatique, etc...) 
que dans la gestion des textes. 


L'« isolation » de chaque mot se fait en deux temps : 


a) On remplace chaque séparateur figurant dans la chaîne TCS$ par un 
""J"" à l'aide de deux boucles FOR .. NEXT imbriquées (instructions 110 à 
170). On notera qu'on place systématiquement un séparateur quelconque 
devant et derrière la chaîne à modifier (instruction 100). 


b} On explore à nouveau la chaîne (instructions 200 à 280). À chaque 
fois qu'on trouve un ‘’/"’, on regarde si le caractère suivant est également 
un ‘‘/"" (lignes 210 et 220). Si oui, on supprime ce deuxième ‘‘/"’ (ligne 
240) par insertion d’une chaîne « nulle » et ceci tant qu’on trouve un ‘’/"' 
en position | + 1{ligne 250). Il est à remarquer que cette boucle de suppres- 
sion n'aurait pu être programmée à l’aide d’un FOR 1= 1 TO LEN(CHS) car 
la longueur de CH$ varie constamment au cours da la boucle. Pour visuali- 
ser cette évolution, nous avons affiché les valeurs intermédiaires de CH$ 
(voir sorties ci-dessus). 
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RECHERCHE DE CARACTÈRES DANS 
UNE CHAINE ET DANS UN TABLEAU 


La recherche de caractères et de groupes de caractères est sans nul 
doute la fonction la plus importante du traitement de texte. L’exercice 
N° 4 du chapitre précédent nous montre que, même dans un cas simple, 
la programmation d’une telle recherche est plutôt laborieuse et exige un 
nombre non négligeable d’instructions si nous n’utilisons que les opéra- 
teurs et les fonctions vus au chapitre précédent. 


Les fonctions que nous allons étudier dans ce chapitre vont nous 
permettre de programmer avec le minimum d’instructions de telles 
recherches. 


4.1. FONCTION POS DE RECHERCHE 


La fonction BASIC «POS» (de l’anglais POSition) a la forme sui- 
vante : 


POS(A$,B$, a) 


Cette fonction : 


— explore la chaîne A$ à partir de la position ’’d’’ pour y trouver 
une sous-chaîne égale à B$. 
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— si elle trouve l’égalité, elle donne la position du premier caractère 


de la sous-chaîne dans AS. 


— si elle ne trouve pas l’égalité, la fonction prend la valeur zéro. 


Explicitons le fonctionnement de POS par le petit programme con- 


versationnel ci-dessous. 


00010 
00020 
00030 
00040 
‘00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 


! E40f : exemple de fonctionnement de La fonction FOS 

t 

DIM CH$x64 
CH$="010203040506070809101112131415161718192021222324252627" 
FRINT NEUFAGE 

FRINT "CH$ contient ";CH$ 

1 


FRINT ne ! impression une Ligne blanche 
l 
INFUT "Entrer La chaine à rechercher et La position de début :": K$,DER 
D oem mm oo0e voue mom mme eme mue mue mnne cm eme cum mn one one one one mue onu one cout one ones one one come one onu one ee eme one one anne ones me one ones one om ou 1! 
FOSIT=FOS(CH$,R$,DEKH) ! recherche de La position de K$ dans CH$ ! 


! à partir de La position DEK 
IF FOSIT=0 THEN 160 ELSE 180 ! test pour savoir si R$ a été trouvée 
! 
FRINT K$;" ne se trouve pas dans CH$": GOTO 89 
1! 


PRINT R$;" se trouve dans CH$ en position ";FOSIT: GOTO 80 


CH$ contient 01020304050607080910111213141516171819202122z 


Le] 
r) 
[et 
LS] 
> 
La] 
Ut 
r) 
ec 
LS] 
er 


Entrer La chaine à rechercher et La position de début : 02,1 
02 se trouve dans CH$ en position 3 


Entrer La chaine à rechercher et La position de début : 02,45 
02 se trouve dans CH$ en position 40 


Entrer La chaine à rechercher et La position de début : 11121931, 
4112431 se trouve dans CH$ en position 21 


Entrer La chaine à rechercher et La position de début : WXC,f 
WXC ne se trouve pas dans CH$ 


Entrer La chaine à rechercher et La position de début : O0, 
0 se trouve dans CH$ en position 


Entrer La chaine à rechercher et La position de début 


4.2 EXEMPLES D'APPLICATIONS 


POS est l’une des fonctions les plus utiles du BASIC. La recherche 


de mots, de caractères séparateurs, etc... est en effet la fonction la plus 
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fréquemment utilisée pour le traitement de texte, pour la recherche docu- 
mentaire, pour la gestion des fichiers et bien d’autres applications simi- 
laires. Indépendamment de ces applications typiquement « Texte », la 
fonction POS permet de simplifier considérablement la programmation 
des applications « classiques » de gestion. Elle permet notamment de 
réaliser la « consultation de tables », qui est l’une des opérations « de 
base » en gestion, en une seule instruction alors que normalement on 
emploie une boucle FOR ..… NEXT. Voici quelques exemples d’utilisa- 
tion de POS en programmation de gestion : 


1. Contrôle de codification 


Il s’agit simplement de contrôler l’existence d’un code par rapport à 
une table de référence. Pour cet exemple, le code à contrôler est entré au 
clavier. 


00010 ! E402 : Controle de codification 


00020 ! 

00030 DIM TARREF$x64 ! définition de La table de référence 
00040 TABREF$="WX3,CV4,XAR,X45,TTY" ! et chargement 

00050 ! 

00060 INFUT "Entrer Le code à controler :": CODES 

00070 ant ed î 
00080 IF FOSCTABREFS$,CODES$,1)=0 THEN INCONNU ELSE TROUVE ! CODES est-il ! 
00090 dans TABREF$ ? ! 
00400 ! NON -} INCONNU! 
00110 ! OUI -) TROUVE ! 
00120 ! lsssenssese ssl 


00130 INCONNU: FRINT "Le code ";CODE$;" n'existe pas dans La table" 
00140 GOTO 60 
00150 TROUVE: FRINT "Le code ";CODE$;" est valide" 


00160 GOTO 60 

RUN 

Entrer Le code à controler : X45 
Le code X45 est valide 

Entrer Le code à controler : TTY 
Le code TTY est valide 
Entrer le code à controler : GHJ 


Le code GHJ n'existe pas dans La table 
Entrer Le code à controler 


Il s’agit de l’application la plus courante de POS : on explore une 
chaîne pour y rechercher un groupe de caractères et si on ne le trouve 
pas, on sort un message d’erreur. On notera dans cet exemple que les 
codes valides ont été séparés entre eux par un séparateur (une virgule). Si 
nous avions « collé » les codes les uns aux autres, le programme n’aurait 
pas donné des résultats corrects : les codes V4X ou 45T, par exemple, 
auraient été considérés à tort comme valides. 
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2. Consultation de table 


Un tarif est entré en mémoire sous forme d’une chaîne de caractères. 
Cette chaîne est formée d’un certain nombre de postes (un poste par arti- 
cle), chaque poste étant séparé du suivant par un point-virgule. Chaque 
poste comprend un code article (1 à 5 car.) suivi de son prix unitaire en 
centimes (1 à 9 chiffres). Ces deux zones sont séparées par une virgule. 
Exemple : 


E45,12;:WW450,14500;X1,124578; 


On entre au terminal le code article et une quantité et on demande 
de déterminer et d’afficher le prix total et le prix unitaire. 


00010 ! E403 Consultation de table 
00020 ! 
00030 DIM TARIF$#128 ! déf.table tarif 
00040 TARIF$="EA45,412;UW350,44500;X1,124578;UW3,41245;" ! et chargement 
00050 FRKINT NEWFAGE ! écran à blanc 
00060 ! 
09070 INFUT "Entrer le code article et La auantité :": CODAR$,QTE 
00080 ! ; 
00090 I=FOS(TARIFS$,CODARS&",",41) ! calcul position de CODAR$ dans TARIFS 
00100 IF I=0 THEN ERREUR ‘ ! —--) ERREUR si CODAR$ non trouvé 
00110 K=FOS(TARIFS$,",",1) ! recherche du "," avant prix unitaire 
00120 J=FOSCTARIFS$,";",1) ! recherche du ";" aprés prix unitaire 
00130 FU=VAL(TARIF#SCK+41:J-1)) l'extraction et conversion numérique 
00440 TOTAL=FUXQTE ! calcul du prix total 
00150 ! affichage 
00160 FRINT "Frix unitaire “FU; Frix total "TOTAL 
00170 FKINT " " 
00180 GOTO 70 
00190 ! affichage message d'erreur 
00200 ERREUR: FRINT CODAKS$ ;" code article inconnu " 
00210 GOTO 170 

Entrer Le code article et La quantité E45,10 

Frix unitaire 12 Frix total 120 

Entrer Le code article et La quantité WW3,5 

Frix unitaire 1245 Frix total 6225 

Entrer le code article et La quantité WW350,1 

Frix unitaire 14500 Frix total 14500 

Entrer Le code article et La quantité WWWA4,56 

WWWA code article inconnu 

Entrer Le code article et La quantité 


On notera dans cet exemple : 


— l'instruction ligne 90 qui permet de rechercher le code article 
dans la table. Nous avons pris soin de concaténer la *”’,”’ avec le code 
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article ce qui évite de trouver à tort dans la table un code ayant la même 
racine (WW 35, par exemple). 


— les lignes 110, 120, 130 qui isolent, extraient et convertissent en 
numérique le prix unitaire. Ces trois instructions auraient pu être con- 
densées en une seule expression « caractère ». 


3. Débranchement en fonction d’un code enregistrement 


Il s’agit, là encore, d’un cas fréquemment rencontré en informati- 
que de gestion. On lit un enregistrement sur un fichier séquentiel. Cha- 
que enregistrement est identifié par un code enregistrement (une lettre 
suivie de deux chiffres) et on demande de se débrancher à un sous- 
programme de traitement différent en fonction du code enregistrement. 
Certains codes ne donnent lieu à aucun traitement. 


00010 ! E404 : débranchement en fonction d'un code enregistrement 
00020 ! 


00030 DIM TAKCES*48 ! définition et chargement 
00040 TABCE$="E43,E44,E45,E67,F44,G645,H66,U00" ! de La table des codes 
00050 ! enregistrement à traiter 


00060 PRINT NEWPAGE 
00070 FRINT "" 


00080 INFUT "Code enregistrement ? ": CE$ 

00090 ! 

00100 IGOSUB=(FOS(TARCES$,CE$,1)+3)/4 ! calcul de L'indice du GOSUK 
00110 l'en fonc.pos de CES ds TARCES 
00120 IF IGOSUR({ THEN GOTO 70 ! pas de trait.pour ce code 


00130 ON IGOSUE GOSUE 160,470,180,490,200,210,220,230 
00140 GOTO 70 

00150 ! 

00160 FRINT "Traitement des enreg.E43": RETURN 
00170 FRINT "Traitement des enreg.E44": RETURN 
00180 PRINT "Traitement des enreg.E45": RETURN 
00190 FRINT "Traitement des enreg,E67": RETURN 
00200 FRINT "Traitement des enreg.F44": RETURN 
00210 PRINT "Traitement des enreg,G45": RETURN 
00220 PRINT "Traitement des enreg.Hé6": RETURN 
00230 FRINT "Traitement des enreg.W00": RETURN 


traitement codes E43 
traitement codes E44 
traitement codes E45 
traitement codes E67 
traitement codes F44 
traitement codes GA5 
traitement codes H66 
traitement codes WO00 


Code enregistrement ? E45 
Traitement des enreg.E45 


Code enregistrement ? E44 
Traitement des enreg,E44 


Code enregistrement ?  E56 


Code enregistrement ?  Héé 
Traitement des enreg.H66 


Code enregistrement ? 
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Pour traiter cet exemple, nous avons constitué une table des codes 
enregistrements à traiter (TABCES, lignes 30-40). Après chaque lecture 
d’un enregistrement, le programme explore par POS la table des codes et 
calcule l’indice du GOSUB de la.ligne 130 : à la position 1 dans 
TABCES$, correspondra un indice égal à 1, à la position 4, un indice égal 
à 2 etc.. (ce calcul est réalisé par l’instruction ligne 100). Un tel type de 
programmation n’emploie pas de IF ... THEN .. ELSE et offre l’avan- 
tage d’aboutir à des programmes « structurés » (un module « direc- 
teur » appelant des sous-programmes). De tels programmes sont un peu 
plus longs à écrire que des programmes « classiques » mais bien plus 
faciles à tester et à modifier. 


4. Transcodification d'un fichier 


Il est parfois nécessaire, dans certaines applications, d’avoir à con- 
vertir un fichier créé avec un certain jeu de caractères (ASCII par exem- 
ple) en utilisant un jeu de caractères différent (| EBCDIC par exemple). 


Dans le programme ci-dessous, on entre une chaîne de caractères au 
terminal et on demande de convertir les minuscules de cette chaîne en 
majuscules et vice-versa. 


00010 ! E405 : Transcodification d'une chaine 

00020 ! 

00030 DIM TA$*x64,TH$*x64,CH$*x32 

00040 TA$="azertyuiopasdfghjklwxcvbnmAZERTYUIOFOSDFGHIJKLYXCUBNM" 
00050 TH$="AZERTYUIOFQSDFGHIJKLWXCURNMazertyuiopasdfghjklwxcvbnm" 
00060 ! 


00070 LINFUT "Entrer La chaine à transcodifier :": CH$ 
00080 ! 
00090 FOK I1=1 TO LENCCH$#) ! début de boucle de transcodification 
00100 F=FOSC(TA$,CH$(I:1),41) ! calcul de La position dans TA$ 
09110 IF F0 THEN 130 ! Le caractere n'est pas à remplacer 
00120 CH$CI:I1)=TR$S(CF:F) ! remplacement du caractere 
00130 NEXT I ! fin de boucle 
00140 ! 
09150 FRINT "la chaine transcodifiée contient : ";CH$ 
00160 FRINT "“: GOTO 70 
RUN 
Entrer La chaine à transcodifier : LE HASIC EST UN LANGAGE 
La chaine transcodifiée contient : Le basic est un Langage 
Entrer La chaine à transcodifier : NE AUX USA ( VERS 1965 ) 
La chaine transcodifiée contient : ne aux usa ( vers 1965 ) 


Entrer La chaine à transcodifier 
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Ce programme utilise deux chaînes. La première -TAS$- contient le 
jeu de caractères d’origine, la seconde -TB$- le jeu à utiliser pour la 
transcodification. On trouvera dans une position donnée de TBS la tra- 
duction du caractère ayant la même position dans TAS$ (dans cet exem- 
ple, les majuscules de TA$ sont « en face » des minuscules de TB$ et 
vice-versa). 


Le fonctionnement du programme est très simple : 


— il extrait, un par un, tous les caractères de la chaîne à transcoder 
(FOR ..… NEXT lignes 90-130). 


— il explore TAS$ (POS ligne 100) avec le caractère extrait (POS ligne 
100) et, si ce dernier figure dans TAS$, il le remplace par le caractère de 
TB$ de même position (ligne 120). 


4.3 FONCTION SREP$ DE RECHERCHE ET DE REMPLACEMENT 


La fonction SREPS (de l’anglais String REPlace) se présente sous la 
forme suivante : 


SREP$(A$,d,X$,Y$) 


où A$, X$, Y$ sont des chaînes de caractères et d une expression numéri- 
que entière. 


Le traitement effectué par cette fonction est le suivant : 


1. Le système explore la chaîne A$ à partir de la position d de cette 
chaîne. 


2. à chaque fois qu’il trouve une sous-chaîne égale à X$, il la rem- 
place par la chaîne Y$. 


3. L’exploration une fois terminée, le résultat est placé dans la 
chaîne dont le nom figure à gauche du signe égal. 


La chaîne A$ n’est pas modifiée sauf, bien sûr, si son nom figure à 
gauche du signe égal. 


Les chaînes X$ et Y$ n’ont pas obligatoirement la même longueur : 
à chaque remplacement, la longueur de la chaîne d’origine est « mise à 
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jour », c’est-à-dire que le système lui additionne en valeur algébrique la 
différence entre la longueur de Y$ et celle de X$. 


Voici un programme illustrant l’utilisation de cette fonction : 


00010 ! E406 : fonction SREF$ de recherche et de remplacement 
00020 ! 

00030 DIM CH$x128 

00040 ! 

00050 FRINT NEWFAGE 

00060 FRINT "" 


00070. LINFUT "Entrer La chaine initiale :": CH$ 

00080 ! 

00090 INFUT "Entrer La chaine à remplacer et celle de remplacement :": A$,E 
00100 ! 

00110 CH$E=SREF#$CCH$,1,A$,KH9$) ! remplacement et stockage du résultat dans € 
00120 ! 

09130 FRINT "CH$ contient maintenant :";CH4 

00140 FRINT "": GOTO 90 


Entrer La chaine initiale : 1293456789 


Entrer La chaine à remplacer et celle de remplacement : 5,xxx NOM xxx 
CH$ contient maintenant :1234xxx NOM x*x*6789 


Entrer La chaine à remplacer et celle de remplacement : NOM,'! 
CH$ contient maintenant :1234xxx ! xxx6789 


Entrer La chaine à remplacer et celle de remplacement : T'RER/RKX 
CH$ contient maintenant :1234xxx ! xxx0kxx/x#K69 
Entrer La chaine à remplacer et celle de remplacement : *xxx,"" 


CH$ contient maintenant :1234 ! 6/89 


Entrer La chaine à remplacer et celle de remplacement : 34,22 
CH$ contient maintenant :1222 ! 6/89 


Entrer La chaine à remplacer et celle de remplacement : 2,-----e 
CH$ contient maintenant :Î------------ ! 6/89 


Entrer La chaine à remplacer et celle de remplacement 


Le lecteur imaginera facilement les nombreuses applications de cette 
fonction SREP$. Citons par exemple : 

— remplacement d’abréviations par le mot entier et vice-versa 

— remplacement de mots par leur synonyme 


— suppression de mots non-significatifs dans un texte (dans ce cas, 
la chaîne de remplacement Y$ sera une chaîne de longueur nulle) 


— transcodification de fichiers 


— insertion de variables dans un texte fixe (la place de la variable 
est indiquée par un caractère spécial). 
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4.4 FONCTION SRCH DE RECHERCHE DANS UN TABLEAU 


Cette fonction joue de même pour les tableaux de chaînes que POS 
vis-à-vis des chaînes. SRCH (de l’anglais SeaRCH) a la forme suivante : 


SRCH(A$,B$,r) 


où A$ est un tableau de caractères à une dimension (donc défini par une 
instruction DIM), B$ une chaîne et ; une expression algébrique positive 


ou nulle et entière. 


La fonction SRCH : 


1. compare chaque élément du tableau A$ à B$ en partant de l’élé- 


ment n° £. 


2. quand elle trouve l’égalité, SRCH prend comme valeur le N° de 
l'élément sur lequel l’égalité a été trouvée et l’exploration s’arrête. 


3. si aucune égalité n’a été trouvée, la fonction prend la valeur - 1. 


Le programme ci-dessous illustre le fonctionnement de SRCH. 


OFTION RASE À 
DIM TM$(12)x10 


DATA NOUVEMERE, DECEMERRE 





E407 : Fonction SRCH de recherche dans un tableau 


DATA JANVIER, FEURIER, MARS, AVRIL, MAI, JUIN, JUILLET, AOÛT, SEFTEMBRE, OCTOBRE 


READ MAT TMS ! chargement du tableau 
FRINT NEUWFAGE 
INFUT "Entrer un nom de mois :": NOM$ 
091 F=SRCOHCTMS, NOM, 1) ! recherche de NOMS dans Le tableau TM4 
00130 IF FO THEN NONTKOU ! —-) NONTROU si non trouvé 
00140 ! 
90150 FRINT NOM$;" se trouve dans l'élément N° ";F: FKRINT "": GOTO 100 
00160 NONTROU: FRINT NOM$;" non trouvé": FRINT “": GOTO 100 


Entrer un nom de mois : JUIN 
JUIN se trouve dans L'élément N° 6 


Entrer un nom de mois : DECEMBRE 
DECEMBRE se trouve dans L'élément N° 42 


Entrer un nom de mois : JUJUILLET 
JJUILLET non trouvé 


Entrer un nom de mois : JUILLET 
JUILLET se trouve dans L'élément N° 7 


Entrer un nom de mois 
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L'application principale de la fonction SRCH est bien évidemment 
la consultation de table ou de tableau. Il est à remarquer que cette fonc- 
tion est également applicable aux tableaux de valeurs numériques. La 
recherche se fait alors par comparaison de valeurs numériques, mais le 
fonctionnement est identique. 


EXERCICES 


1. Détection de mots dans un texte 


On considère un texte composé de lignes de 64 caractères. Ce texte 
comprend des mots et des caractères séparateurs de mots qui sont des 
signes de ponctuation et des blancs. Il est demandé de : 


— remplacer tous les caractères séparateurs par un séparateur unique : la 
barre de fraction ‘’/'". Lorsque deux caractères séparateurs se suivent (une 
virgule suivie d’un blanc, par exemple), ils seront remplacés par un seul 
Le 

— supprimer du texte tous les mots non significatifs tels que les préposi- 
tions, les adverbes, les diverses formes des verbes « avoir » et « être » 
etc... Ces mots seront contenus dans un tableau de 200 chaînes initialisé 
par DATA. 


Par exemple, la ligne suivante : 


LE LANGAGE BASIC PEUT,bEVIDEMMENT ,bbETRE MODIFIE. 
donnera : 


LANGAGE/BASIC/MODIFIE/ 


en supposant que les mots «LE », « PEUT », « EVIDEMMENT »: et 
« ÊTRE » aient été entrés dans la table des mots non significatifs. 
Pour simplifier, on admettra que tout le texte est en majuscules. 
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00010 ! E410 : Détection de mots dans un texte 

00020 ! 

00030 OFTION HASE { 

00040 DIM MNS$(200)x8,CH$x128 

00050 DATA ET,QU,NI,MAIS,OR,CAKR, DONC, QUI , QUE , QUOI , DONT , OÙ, QU, QUAND , QUELQUE 
00060 DATA QUELQU,JE,TU,IL,ELLE, NOUS, VOUS, ILS,ELLES,UN,UNE ,UNS ,UNES , EUX, ON 
00070 DATA DU,DES,D,LA,LE,LES,MA,TA,SA,MON,TON, SON, NOTRE , VOTRE , LEUR, NOS , VOS 
00080 DATA LEURS, CELUI ,CELLE, CELLES, CEUX ,CE,CES,CETTE, SIENNE, TIENNE ,MIENNE 
00090 DATA SIENNES,TIENNES, AVOIR, AI, AURAI,AS,A,AVONS ,AVEZ,ONT,AVAIS,AVAIT 
00100 DATA AVAIENT, AVIEZ, AVIONS,ETRE, SUIS ,ES,EST, SOMMES ,ETES, SONT ,ETAIS 
001410 DATA ETAIT,ETIONS,ETIEZ,ETAIENT,SOIT,ETE,SERA,SERAS, SERAI, SERONS 
00120 DATA SEREZ,SERONT, SOIT,SOIE, SOYONS, SOYIEZ, SOIENT, DEUX, TROIS, QUATRE 
00130 DATA CINQ,SIX,SEFT,HUIT,NEUF ,DIX,DE,COMME, COMMENT, AVEC, SANS, FAR, AU 
00145 DATA FARCE,DANS, SUR, SOUS, L 


00140 ! 

00150 READ MAT MNS$ EOF 4170 

00160 ! 

00170 TCS$=" ,,,:7'&R100ç)" 

00180 ! 

00190 FRINT NEWFAGE 

00200 LINFUT "Entrer La chaine à modifier :": CH$ 
00210 IF CH$="" THEN STOF 


00220 CHE= "CHER". " 

00230 FOR 1=1 TO LENCTCS#) 

00240 CHÉSSREFS$CCH$,1,TCS$CI:I),"/") 
00250 NEXT I 

00260 IF FOS(CH$,"//",1)=0 THEN FINI 
00270 CH$ESREFS$CCH$,1,"//","/") 

00280 GOTO 269 


00290 FINI: FOR 1z4 TO 200 

00309 IF MNS$CI)="" THEN SUIT2 

00310 CH$ESREFS$CCHE, 14, "/"&MNSSCT)I&"/","/0) 
00320 NEXT I 

00330 SUIT?: FRINT "La chaine modifiée contient : ";CH$ 
00340 FRINT "": GOTO 200 


Entrer La chaine à modifier : L OHJET DE NOD DESIRS 

La chaine modifiée contient : /OHJET/NOD/DESIRS/ 

Entrer La chaine à modifier : L OBJET DE NOS DESIRS 

La chaine modifiée contient : /OKHJET/DESIRS/ 

Entrer La chaine à modifier : DEUX SOUS DE KHON SENS 

La chaine modifiée contient : /HON/SENS/ 

Entrer La chaine à modifier : LE RASIC ( NE AUX U.S.A,VERS 1965) 
La chaine modifiée contient : /HASIC/NE/AUX/U/S/VERS/1965/ 


Entrer La chaine à modifier 


La structure de ce programme est très semblable à celle de l'exercice 
N° 4 du chapitre précédent mais le lecteur peut constater du premier coup 
d'œil .que les fonctions POS et SREP$ nous ont permis d'économiqer pas 
mal d'instructions. 


Ce programme comprend trois parties : 
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a) La boucle FOR . NEXT lignes 230-250 qui prend les séparateurs un par 
un dans TCS et les remplacent par des ‘’/’’ dans CH$(SREPS ligne 240). 
b) La boucle lignes 260-280 qui remplace les groupes ‘’//'" par des ‘’/ 
(SREP$ ligne 270) jusqu'à ce qu'il n'y en ait plus dans CH$ (test par POS 
ligne 260). 

c) La boucle FOR . NEXT (lignes 290-320) qui prend chaque mot à sup- 
primer dans MNS$ et le remplace (encadré par des ‘’/'’ - pour éviter de 
détecter des parties de mots) par un seul ‘’/". 

Pour cette dernière partie, on aurait pu procéder différemment en iso- 
lant chaque mots de CH$ et en allant voir si ce mot figure dans MNS$ par 
SRCH. Cette variante comporte plus d'instructions mais est sans doute 
plus performante. 


2. Cryptage du contenu d'un fichier 


Pour des raisons de confidentialité, il est parfois nécessaire d’inter- 
dire à toute personne non autorisée la lecture du contenu d’un fichier 
informatique. La méthode la plus sûre (et également la plus ancienne) 
consiste à « crypter » ou à « coder » ce contenu, c’est-à-dire à remplacer 
les caractères qui le composent par d’autres caractères suivant une cer- 
taine formule. 


Ce cryptage peut se faire soit par des unités spécialisées soit par pro- 
gramme. L’exercice qui va suivre illustre une méthode de cryptage simple 
à programmer à l’aide des fonctions BASIC de traitement de textes. 


La méthode de codage proposée est utilisée depuis longtemps, en 
particulier dans les procédures de transmission militaires. Elle est basée 
sur l’utilisation d’un dispositif composé de six roues coaxiales. Chacune 
de ces roues porte sur sa tranche le jeu de caractères utilisé qui sera, pour 
cet exercice : 


ABCDEFGHIJKLMNOPORSTUVWXYZ123456789 


La première de ces roues, qui sert de référence, est fixe par rapport à 
l’axe ; les cinq autres, numérotées de 1 à 5, sont mobiles. 
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| | 
& À 6) 
I | 


[ 
[ 

référence | | 
| roues mobiles 
Û 


Le principe de cryptage est le suivant : 


a) on choisit une « clé » de cryptage qui est un mot de 5 caractères 
(faisant partie du jeu ci-dessus), par exemple le mot « LOTUS ». 


b) on prend la première lettre de la clé — « L » et par rotation, on 
amène le « L » de la roue mobile n° 1 en face du « A » de la roue de 
référence. On prend ensuite la seconde lettre de la clé — « O » et on 
positionne le « O » de la roue mobile n° 2 en face du « A » de la roue 
fixe. On opère de la même façon avec les lettres « T », « U » et « S » de 
la clé et les roues mobiles n° 3, 4 et 5. Après cette opération, le mot-clé 
« LOTUS » se trouve en face du « À » de la roue de référence, comme 
représenté « à plat » ci-dessous : 


référence |AIBCDEFGHIJKLMNOPORSTUVWXYZÉ#01234567839 
roue N°1 [LLMNOPORSTUVWXYZÉG123456789ABCDEFGHIJK 
roue N°2 [O[PORSTUVWXYZÉH0123456789ABCDEFGHIJKLMN 
roue N°3 [TUVWXYZÉHG123456789ABCDEFGHIJKLMNOPORS 
roue N°4 [UVWXYZÉH0123456789ABCDEFGHIJKLMNOPORSIT 
roue N°5 [SÏTUVWXYZ#0123456789ABCDEFGHIJKLMNOPOR 


<— Sens de la rotation —-— 


c) pour crypter un enregistrement donné, on commence par le 
découper en groupes de cinq caractères. On prend ensuite le premier de 
ces groupes, le mot « CHOUX », par exemple. La première lettre de ce 
mot est « C » : en regard du « C » de la roue de référence, nous trou- 
vons le « N » sur la roue mobile n° 1. Ce caractère sera le premier du 
mot crypté. De même, pour coder la deuxième lettre — « H », nous 
irons chercher en regard du « H » de la roue de référence, le « V » sur la 
roue mobile n° 2. 
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On procède de la même manière avec les « O », « U » et « X », 
remplacés par les «6 », « D » et « E » des roues mobiles n° 3, 4 et 5. 


référence 


roue N° 1 
roue N° 2 
roue N° 3 
roue N° 4 
roue N° 5 


A|B(C)D E FGHI JKLMNOPORSTUVWOYZÉ0O123456789 
LIMNOPORITUVWXY | 60123|56|8IABCDEFGHIJK 
OPORSTUWWXYZ#0I23456|89|BCDEFGHIJKLMN 
TUVWXYZÉ6012345@O789ABÎDE|GHIJKLMNOPAORS 
UVWXYZÉ#80123456789ABCOEF{HIJKLMNOPORSIT 
SITUVWXYZÉH0123456789ABCDŒEFGHIJKLMNOPOR 


Les autres groupes de cinq caractères seront traités comme le pre- 


mier. 


On demande donc de programmer le cryptage d’un fichier suivant 
cette méthode. Le fichier à crypter, en entrée, et le fichier crypté, en sor- 
tie, sont séquentiels et ont des enregistrements de 60 caractères. 


Fichier 
à crypter 


Fichier 
crypté 
«CRYPTE » 


Programme 
de cryptage 


«ACRYPT» «CRYPTAGE» 





Fig. 4.1 : Organigramme du programme «CRYPTAGE » 
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00010 
00020 
90030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
001410 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00240 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 


Le traitement comprend deux parties principales : 


EA4ii 


OFTION HASE ji 


OFEN 
OFEN 


DIM 


£$: "NAME=ACRYFT", INPUT 
£2: M"NAME=CRYFTE", OUTFUT 
REF$*x37 


DIM RM$(5)#37 
DIM EAC$(12)%5 
ECR$C120x5 
CC$x5 


DIM 
DIM 


REF$="ARCDEFGHIJKLMNOFARSTUVUXYZ 0123456789" 


INFU 


T "Entrer La clé de cryptage 


FOR I=i TO 5 
NE=FOSCREF$,CC$CI:I),1) 


NEXT 


lect, 


IF NxO THEN 180 


RM$CIDEREFS CN: 37)&REF$CL:N-1) 


I 


enr, 


à crypter ,cryptage et écr.enr.crypté 


MAT ECK$=("") 


READ £f ,USING 


320: MAT EAC$ EOF 480 


FORM 12*xC 5 
FOR J=1 TO 12 
FOR 1=4 TO 5 
N=FOSCREFS$,EAC$CJ)CI:1),4) 
IF N=O THEN 470 
ECR$ CJ)=ECRS CJ) RMS CI) CN: N) 
NEXT I 
NEXT J 
WRITE £2,USING 320: MAT ECR$ 
GOTO 300 
STOF ji 
END 


Cryptage du contenu d'un fichier 


CCS 
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! ouverture des fichiers 
! {.Fichier à crypter 

! 2.Fichier crypté 

! DÉFIRENON DES CHAINES 
] roue de reférence 

! —- 5 roues mobiles 

! - enreg.à crypter(5x12) 
! — enreg.crypté (5x12) 
! - clé de cryptage 

L 


Initi.roue de reference 
saisie clé de cryptage 
HOUCLE DE FOSITIONNT 


L 
L 
1 
1 
! recherche position du 

! caract."I" ds reference 
! car.invalide -}) saisie 
Q 
1 
! 


ROTATION ROUE MOBILE N°I 


chaine nulle-)enr,crypté 
! Lecture enreg.àa crypter 


boucle 12 gpes de 5 car 
boucle 5 car du gpe J 


recherche position car. 
1 gpe J dans reference 
enr.invalide -} ARRET 


' 
1 
' 
U 
' 
1 
' 
| 
! mvt sur gpe J du car. 

! N de La roue mobile N°I 
\ car,suivant du gpe J 

! gpe suivant de l'enreg. 
! écriture enreg.crypté 

! —-)} trait.enreg suivant 


! xx FIN DU FROGRAMME *#* 


Dans ce programme, chaque roue est représentée par une chaîne 
(REF$ pour la roue de référence et le tableau RM$ pour les roues mobiles). 


a) La rotation des roues mobiles (lignes 200-260). Cette rotation se fait 
essentiellement par l'instruction 250 qui consiste à couper la chaîne REFS$ 
en deux et à « recoller les morceaux » en les inversant. 


b} Le cryptage de l'enregistrement qui se fait suivant un processus exposé 
au 8 4.3 de ce chapitre (transcodification d'un fichier). 
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3. Traduction d'une table de décision 


De nombreux analystes ont pris l'habitude de présenter les résultats 
de leurs analyses sour forme de tables de décision. Rappelons au lecteur 
qu'une « table de décision » comprend deux parties : 


— une partie « Décisions ». Chaque ligne représente une condition à tester 
et chaque colonne un cas possible pour la condition. 


— une partie « Actions » ou « Traitements ». Chaque ligne représente une 
action à effectuer. La présence d'une croix à l'intersection d'une ligne et 
d’une colonne indique que le traitement correspondant à la ligne est à faire 
dans le cas correspondant à la colonne. 


La figure 4.2 représente une table de décision. On y voit, par exemple, 
que dans le cas N°8, on doit effectuer les calculs N°1, 3 et 5. 























ANCIENNETÉ < à 5 ans de 5 à 9 ans de 10 à 25 ans à 25 ans 


catégorie À catégorie B catégorie C catégorie D 


ni 
Statut Cadre Inon non | oui | non | oui | non | oui f non | oui | non | oui non | oui |non [oui 
Oui = codes 1,3,9 


Cas Locchppeppnfpfessf 
Frsnemenoe | Sepi popufifrafiefie frel 
MEMEMME 






SEXE 
1 = homme 


2 = femme 

















Calcul Prime 4 
Calcul Prime 5 
Calcul Prime 6 


Fig. 4.2 — Table de décision pour l'exercice n° 3 


Un tel support d'analyse est un bon moyen de communication entre 
les analystes (ou les utilisateurs) et les programmeurs. || permet aux pre- 
miers de s'assurer qu'aucun cas n’a été oublié et il évite aux seconds le 
dessin d'organigrammes complexes et l'emploi de IF ... THEN … ELSE 
longs à écrire et à tester. Encore faut-il trouver une méthode pour passer 
simplement de la table de décision aux instructions du programme. Nous 
allons voir dans le présent exercice comment « traduire » une table de déci- 
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sion avec le minimum d'efforts et le maximum de fiabilité et ceci à l’aide 
des fonctions BASIC de traitement de textes. 


Cet exercice porte sur un calcul de primes dans une paie : le pro- 
gramme doit lire le fichier du personnel, tester certains codes et calculer 
certaines primes. Les tests à effectuer et les calculs à faire sont spécifiés 
par la table de décision de la figure 4.1 


Le code donnant le statut (cadre ou non-cadre) se trouve en position 5 
du fichier : les statuts 1, 3 et 9 désignent des cadres ; les autres valeurs 
désignent des non-cadres. 


L'ancienneté (0 à 40) se trouve en position 8 et 9 de l'enregistrement. 
Le code sexe (1 = Homme, 2 = femme) est en pos. 15. 


Pour éviter d’alourdir le programme, on admet que les calculs de prime 
1,2, etc... sont des sous-programmes BASIC dont l'exécution est simulée 
par des messages à l'écran dans le programme ci-après. Dans le même 
esprit, nous avons remplacé la lecture du fichier par une entrée des don- 
nées au clavier de façon à visualiser les entrées et les sorties. 
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00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
005460 
00570 
00580 
00590 
00600 
00610 
004620 
00630 
00640 
00650 


E4i2 


OFTIO 


Traduction d'une table de 


N BASE { 


DIM TABDEC$(32)%xé6 


FRINT 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


READ 


ST$=" 


INFUT 


IF ANC(5S THEN D$="A" 
IF ANC)=5 AND ANC(=9 THEN D$="EH" 
IF ANC)=10 AND ANC(=25 THEN D$="C" ! 


NEWFAGE 


AÎN,XX.... 
Ai0,..X.., 
A2N,XX..X. 
A20,..X.X. 
HIN,.X.X.. 
H10,.,X.,.X 
E2N,..X.X. 
H20,X.X.X. 
CIN,.X...X 
C10,X..X.:. 
C2N,..XX., 
C20,.X..X. 
DIN,X.X..X 
D10,..XX.. 
D?2N,X...X. 
D20,X....X 
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décision 


Une me ae one me mes cos con one me con 260 ne te mes ane c00 me on ne ae mue 20e me moe one te ne eo oem ou ou Î 


! définition et initialisation de La ! 
! table de décision : 

! une Ligne DATA représente une 

! colonne de La table de décision t 


1! 
MAT TARDECS$ ! chargement de La table de déc'ision ! 
! —- décisions --) N° élément impair ! 
l —- actions --) N° élément pairs 
L'an osé nn cafés es ie en:eù er de of à din ou de © ee pi Der Ps cé ci ci Me mc on Nm À 
ONONNNNNO " ! Chargement table cadre/non cadre 
! en fonction du statut 
À ous me ones eu eue ame een eue eme me ee eu eme mue eme me eme ue œe eue oo eme cons oo 0000 one o00e 0 ones one nes 00 one oo ones one 1 
“Entrer Ancienneté,sexe({ ou 2),statut(f à 9):": ANC,SEX,STA 


IF ANC)25 THEN D$="D" 


D$=D$ 


&STR$CSEX) 


D$=DSASTÉS(STA:STA) 


N=SRCH(TABDECS$,D$,41) 


A$=TA 
IF A$ 
IF A$ 
IF A$ 
IF A$ 
IF A$ 
IF A$ 
GOTO 

FRINT 
FRINT 
FRINT 
PRINT 
FRINT 
FRINT 


EDEC$(N+1) 
C4:4)="X" 
(2:2)="Xx" 
(3:3)="X" 
(4:4)="X" 
(5:5)="Xx" 
(6:6)="X" 
350 
"Calcul F 
"Calcul F 
“Calcul F 
"Calcul F 
"Calcul F 
"Calcul F 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


rime 
rime 
rime 
rime 
rime 
rime 


GOSUR 600 
GOSUE 610 
GOSUR 620 
GOSUE 630 
GOSUE 640 
GOSUE 650 


4": 
D. 
4 Ms 
à": 
su. 
év: 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


! partie DECISION de La table : une ! 
! colonne décision est mise dans R$ ! 


! catégorie ancienneté 





SOXTD 


! sexe --) D$ 
! cadre/non cadre -) D$ 


! partie ACTION de La table : La 
! colonne corersp, à D$ est mise l 
! dans A$ à partir de TAHDECS$ 


! recherche D$ dans TARDEC# 
! L'Action est ds L'élément + À 


D mue us vom mm mue vom me mate me mue mue s00e ue ne con mes one oo mas om mue nee ce ve me se com me one met ous me 0 mo eue 
! exécution des sous-programmes en 
! fonction des "X" de La col.ACTION 


1 
! 
1 
1 
1 





1 
à 
xxx SOUS-FROGRAMMES DE CALCUL xxx ! 
1 
ll 
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Entrer Ancienneté,sexe(f ou 2),statut(i à 9): 31,2,9 
Calcul Frime 1 

Calcul Frime 6 

Entrer Ancienneté,sexe(i ou 2),statut(i 
Calcul Frime 1 

Calcul Frime 2 

Entrer Ancienneté,sexe(f ou 2),statut({ à 9): 412,2,3 
Calcul Frime 2 

Calcul Frime 5 

Entrer Ancienneté,sexe(i ou 2),statut(i à 9): 26,1,5 
Calcul Frime {1 

Calcul Frime 3 

Calcul Frime 6 

Entrer Ancienneté,sexe({f ou 2),statut(i à 9): 


92: 0:42 


ar 


Le principe du programme est très simple : 
chaque colonne de la table de décision est traduit par deux éléments adja- 
cents d’un tableau de chaînes. Le premier (impair) correspond à la partie 
« Décision » et contient les valeurs des codes à tester mises bout-à-bout. 
Par exemple, l'élément N°3 du tableau qui correspond à la colonne 2 de la 
table de Décision contiendra ‘’A2N”” (ligne 1 20 du programme) ce qui veut 
dire : 


ancienneté <à 5 ans, femme, non-cadre 


De même, l'élément suivant (pair) contiendra une suite de ‘’X'’ et de 


RE] 


.!", le ’X"" signifiant que le calcul est à effectuer. 


Compte-tenu de ce principe, la structure du programme est facile à 
comprendre. Elle comprend trois parties : 


a) la constitution et le chargement du tableau qui est fait par DATA (lignes 
100-250 - une colonne de la table de décision est traduite par une ligne 
DATA). 


b} la constitution de la chaîne D$ qui contient les valeurs déduites des 
codes entrés par INPUT (lignes 380-430). Ces valeurs sont obtenues soit 
par des IF (lignes 380-410) pour la catégorie d'ancienneté, soit par simple 
conversion en caractère pour le code « sexe », soit enfin par consultation 
de la table ST$ qui donne O ou N en fonction du statut. 


c) la consultation du tableau avec D$ (par SRCH ligne 490) et l'appel des 
sous-programmes de calcul en fonction de chaque position de A$ (lignes 
510-560). 


Nous pensons que le lecteur sera frappé par la ressemblance entre la 
table de décision et le programme (en raffinant un peu, on aurait pu impri- 
mer cette table à partir de TABDECS). Soulignons que le programme ainsi 
obtenu est facile à tester (dans chaque cas, on visualise bien les calculs 
effectués) et facile à modifier (il suffira, dans beaucoup de cas, d'ajouter ou 
de retirer un ‘’X'" sans avoir à explorer une forêt de IF ... THEN). 
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FONCTIONS BASIC ANNEXES 


Les fonctions BASIC étudiées dans ce chapitre sont moins impor- 
tantes que la fonction POS, par exemple. Elles peuvent être facilement 
programmées à l’aide des opérateurs et des fonctions que nous avons 
jusqu'ici, mais leur emploi permet néanmoins de simplifier les program- 
mes dans certains cas particuliers. 


5.1 INSERTION ET SUPPRESSION DE BLANCS A GAUCHE ET A DROITE 
D'UNE CHAÎNE 


Quatre fonctions LPADS, RPADS, LTRMS et RTRMS$ permettent 
d’insérer et de supprimer les caractères blancs à gauche et à droite d’une 
chaîne. Voici leurs caractéristiques : 


a) Insertion de blancs à gauche d'une chaîne (LPADS$ : Left PADding) 


La fonction LPADS(X$,/ ajoute des blancs à gauche de la chaîne 
X$ de façon à former une chaîne de longueur /, ce qui revient à dire 
qu’elle cadre X$ à droite d’une zone de longueur /. L'exemple ci-dessous 
illustre son utilisation : 
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90010 ! E504 : insertion de blancs à gauche d'une chaine 

20020 ! 

20030 DIM ZONE#$#40 ! dimension de La zone de cadrage = 40 car, 
20040 INPUT "Entrer La chaine à cadrer à droite d'une zone de 40 car, ": CH$ 
20050 ! 

20060 ZONE$=LFAD$(CH$,40) ‘ cadrage de CH$ à droite de ZONE$ 

20070 ! 

20080 PRINT ** 

20090 FRINT "ZONES contient : ";ZONE$;" Longueur : ";LENCZONES$) 

20400 FRINT "": GOTO 40 

XUN 


atrer La chaine à cadrer à droite d'une zone de 40 car, * 
INE$ contient : * Longueur : 40 


ntrer La chaine à cadrer à droite d'une zone de 40 car. HERNARD 


INE$ contient : HERNARD longueur : 40 
ntrer La chaine à cadrer à droite d'une zone de 40 car. ! HERTRAND G 
2NE$ contient : HERTRAND longueur : 40 


ntrer La chaine à cadrer à droite d'une zone de 40 car, 


b) Insertion de blancs à droite d'une chaîne (RPADS$ : Right PAD- 
ding). 


La fonction RPADS est le pendant de LPADS : elle permet de 
cadrer une chaîne X$ à droite d’une zone de longueur 1. Voici un exem- 
ple d’utilisation : 


00010 ! E50?2 : insertion de blancs à droite d'une chaine 

00020 ! 

00030 DIM ZONE$#40 ! dimension de La zone de cadrage = 40 car. 
00040 INFUT "Entrer La chaine à cadrer à gauche d'une zone de 40 car, ": CH$ 
00050 ! 

00060 ZONE$=RFAD$(CH$, 40) ! cadrage de CH$ à gauche de ZONE$ 

00070 ! 

00080 FRINT "" 

00090 FRINT "ZONES contient : ";ZONE#;" longueur : ";LENC(ZONES$) 

00100 FRINT “": GOTO 40 

RUN 


ntrer La chaine à cadrer à gauche d'une zone de 40 car, * 
ONE$ contient : * Longueur : 40 


ntrer La chaine à cadrer à gauche d'une zone de 40 car. HERNAKD 


ONE$ contient : HERNARD Longueur : 40 
ntrer La chaine à cadrer à gauche d'une zone de 40 car. ® RERNARD " 
ONE$ contient : RERNARD Longueur : 49 


mtrer La chaine à cadrer à gauche d'une zone de 40 car, 
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c) Suppression de blancs à gauche et à droite d’une chaîne. 


Les fonctions LTRMS$ (Left TRiM) et RTRMS (Right TRiM) 
permettent de supprimer les blancs à gauche et à droite de la chaîne dont 
le nom figure comme argument. La longueur de la chaîne résultante est 
diminuée du nombre de blancs supprimés. L'exemple ci-dessous illustre 
le fonctionnement de ces deux fonctions : 


00010 ! E503 : suppression de blancs à gauche et à droite d'une zone 
00020 ! 

00030 DIM Z$*64 

00040 ! 


00050 INFUT "Entrer La chaine à modifier :": Z# 

00060 FRINT "" 

00070 FRINT "Z$ contient ";:2$;" longueur ";LEN(CZ#) 

00080 ZHRELTRMS (24) 

00090 FRINT "" 

0000 FRINT "après suppr GAUCHE Z$ contient ",2Z$;" Longueur ";LEN(CZ#) 
REFLACE 


RUN 

Entrer La chaine à modifier » LES FONCTIONS DU HASIC de 

Z$ contient LES FONCTIONS DU BASIC Longueur si 

après suppr.GAUCHE Z$ contient LES FONCTIONS DU BASIC Longueur 27 


après suppr.DROITE Z$ contient LES FONCTIONS DU HASIC Longueur 22 


HAS-5055 Le programme s'est terminé à La Ligne 140 


5.2 CONVERSION D'UNE CHAÎNE DE MAJUSCULES 
EN MINUSCULES ET VICE-VERSA 


La fonction LWRCS (en anglais : LoWeRCase) permet de convertir 
les majuscules existant dans une chaîne en minuscules. 


Inversement, la fonction UPRCS$ (UPpeRCase) convertit les minus- 
cules rencontrées dans une chaîne en majuscules. Dans les deux cas, les 
caractères autres que les majuscules et les minuscules restent inchangés. 


Nous avons illustré l’utilisation de ces deux fonctions par l’exemple 
suivant : 
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00010 ! E505 : Conversion de majuscules en minuscules et vice-versa 


00020 ! 

00030 DIM Z$x64 

00040 ! 

00050 LINFUT "Entrer La chaine à convertir : ": Z4$ 


00055 FRINT "" 


00060 FRINT "avant conversion Z$ 


00070 Z$=LURCS(Z$) 


= ";Z$ 


00080 FRINT "après conversion en minuscules Z$ = ";2Z$ 

00090 Z$=UFRCS$(Z$) 

090100 FRINT "après conversion en majuscules Z$ = ";2% 

001410 STOF 

RUN . 
Entrer La chaine à convertir : DEPUIS 1970, LE BASIC À EVOLUE !!! 


avant conversion Z$ = DEFUIS 1970, 


après conversion en minuscules Z$ 
après conversion en majuscules Z$ 


LE HASIC À EVOLUE !!! 
depuis 14970, Le basic a evolue !!! 


DEPUIS 1970, LE HASIC À EVOLUE '!! 


HAS-5055 Le programme s'est terminé à La Ligne 110 


5.3 RÉPÉTITION D'UNE CHAÎNE DE CARACTÈRES 


La fonction RPTS$ (de l’anglais RePeTe) permet d’obtenir une 
chaîne composée d’une chaîne donnée répétée n fois. Cette fonction a la 
forme : 


RPT$(A$,n) 


Après exécution, la chaîne résultante contiendra la chaîne AS$ con- 
caténée n fois et sa longueur sera n fois celle de A$. Cette fonction est 
particulièrement utile lorsqu’il s’agit de constituer des chaînes de lon- 
gueur proportionnelle à une valeur donnée : lignes horizontales ou verti- 
cales pour dessiner un cadre, lignes pour souligner un mot dans un texte, 


graphiques etc... Le programme ci-dessous illustre le fonctionnement de 
RPT$. 
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00010 ! E506 : répétition d'une chaine de caractère 


00020 ! 

00030 DIM CR$xi28 

00040 INFUT "Entrer La chaine à répéter et Le nb de fois : ": C$,N 
00050 CR$=RFT$(C$S,N) 

00060 FRINT "résultat : ";CK$;" Longueur : ";LENCCR$#) 

00070 FRINT "“": GOTO 40 

RUN 
Entrer La chaine à répéter et Le nb de fois : x*x,99 
résultat 


EH DEEE NE DE DE DE EX CE DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE EE EEE DE DE EE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE EEE XXE 
KXKKKHEKEKKERKEXEEX Longueur : 99 


Entrer La chaine à répéter et Le nb de fois : + # +,7 
résultat : + X ++ x% ++ x ++ X ++ X ++ X ++ x + longueur : 35 
Entrer La chaine à répéter et Le nb de fois : "M, 5:33: "6 
résultat : 33 33 33 33 33 33 longueur : 36 
Entrer La chaine à répéter et Le nb de fois : "",999 

résultat : Longueur : © 


Entrer La chaine à répéter et Le nb de fois 


5.4 ÉDITION D'UNE ZONE NUMÉRIQUE 


Dans la pratique, sur une facture, sur une lettre ou sur un tarif, par 
exemple, les zones numériques (montants, dates, etc...) sont éditées sous 
une certaine forme avec des signes + et —, des points ou des virgules, 
des symboles monétaires ($, F, £...) etc. 


Cette forme d’édition à l’aide de « masques d’édition » est bien 
connue et est utilisée dans la plupart des langages dans les formats 
d'impression : le programmeur décrit l’image de la zone éditée par une 
spécification PIC (de l’anglais PICture). 


La fonction BASIC CNVRTS (de l’anglais CONVeRT) utilise le 
même principe : elle permet de convertir une zone numérique en chaîne 
de caractère d’après la description figurant dans un masque d’édition. 


Cette fonction a la forme suivante : 


CNVRT$(MÉ,z) 


ou MS décrit l’édition demandée et z est la zone numérique à éditer. 
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M$ est une chaîne de caractères qui peut avoir trois formes différen- 
tes : 
A. M$ = ‘'Nx.y” 


La zone z est convertie en une chaîne de x caractères de long, avec 
un point décimal et y chiffres après ce point. La zone est cadrée à droite 
et les zéros non significatifs sont supprimés. 


B.M$ = ‘’ZD x.y” 

Le résultat est le même sauf que les zéros non significatifs ne sont 
pas supprimés. 

C.M$ = ‘’PIC(masque)" 


La zone est éditée suivant ce qui est spécifié dans le « masque ». Ce 
masque est une chaîne de caractères de contrôle qui ont chacun leur 
rôle ; ces caractères sont les suivants : 


— £ : à l’édition, ce caractère est remplacé par un chiffre de la zone 
éditer, même s’il s’agit d’un zéro non significatif. 


© 


— Z :à l'édition, ce caractère est remplacé par un chiffre de la zone 
éditer ou par un blanc s’il s’agit d’un zéro non significatif. 


D 


— $:il s’agit du symbole « monétaire flottant ». les «$» sont rem- 
placés par des chiffres de la zone à éditer ou des blancs. Seul le caractère 
précédant le premier chiffre significatif est remplacé par le symbole ?’$””. 
Ce type d’édition est surtout usité aux U.S.A. où le signe ?’$”? précède un 
montant, alors qu’en France le signe ?’F”? le suit. 


— * ; les zéros non significatifs sont remplacés à l’édition par des asté- 
risques. Cette possibilité est utilisée lorsqu’on veut « protéger » la zone 
précédant les chiffres significatifs d’un montant contre tout ajout 
« intempestif ». 


— + ou — : ils peuvent être utilisés de deux façons différentes : 
lacés à gauche du masque, ils se comportent comme des symboles flot- 
ants mais ne figurent dans la zone éditée que si celle-ci est ou positive ou 
négative. 
placés à droite du masque, ils sont édités à l’endroit indiqué si la zone est 
positive (pour +) ou négative (pour —). 


— blanc ,/ ou , (virgule) : ces caractères sont insérés dans la zone édi- 
tée si le caractère précédent n’est pas blanc. 
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— . (point) : le point est inséré entre le chiffre des unités et la pre- 
mière décimale de la zone à éditer. 


— CR, DB ou DR : ces groupes de lettres sont placés à la fin du 
masque et n’apparaissent que si la zone à éditer est négative. 


REMARQUES : 


1.- Il est possible d’éditer une zone suivant les normes françaises 
(virgule décimale à la place du point décimal anglo-saxon) en utilisant 
POPTION INVP quiinverse le point et la virgule. Cette inversion se fait 
uniquement à l’édition et dans le masque les points et les virgules seront 
placés suivant les normes anglo-saxonnes. 


2. - La fonction PIC$ permet de changer la valeur du symbole 
monétaire $. Il suffit d’écrire : 


A$ = PIC$("'F") 


pour que le symbole monétaire devienne *’F’’(A$ est une zone quelcon- 
que qui ne joue ici aucun rôle). Néanmoins, le $ doit toujours figurer 
dans le masque et ne sera remplacé par le caractère modifié qu’à l’édi- 
tion. 


Le programme ci-dessous récapitule les principaux types de masques 
utilisés. 


00010 ! E507 : exemples d'édition par CNVRT$ 





00020 ! 

00030 ON LFKEC,INVUF ! calcul en double précision 
00049 É, ! symbole monétaire flottant = F 
00050 "ZONE NUMERIQUE", "MASQUE", "ZONE EDITEE" 

00060 2: Wu 

00070 INFUT "Entrer Le masaue et La zone à éditer : ": M$,Z 


00080 ZES=CNURTSCM$,2Z) 
00090 FRINT £255: 2,M$,2E$ 
00100 GOTO 70 


ZONE NUMERIQUE MASQUE ZONE EDITEE 
1456 PIC(£££ £££.FEE) 001 456,00 
,14 FICC££E £EE.£E) 000 000,14 
,09 FIC(22ZZ ZZZ.27) 0,09 
123,7 FIC(2ZZ ZZ£.££) 123,70 
.:08 FIC(ZZZ ZZ£.£E£) 0,08 
1456 FIC(#xx xx£,££) *x*x{1 456,00 
1456 FIC($$$ $9$£.#££) Fi 456,00 

—415,47 PIC = £.£E£) —415,47 

-14147,{ PIC(ZZZ ZZ£,£E -) 14 147,40 - 
12345,14 FIC(+++ ++£,4£) +12 345,14 
12058? FIC(££/£E/EE) 12/05/82 
245,78 FIC(2Z2Z ZZ£.££ CR) i 243,78 


—758,47 FIC(ZZZ ZZ£.£E£ CR) 758,47 CK 
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On remarquera, au vu des résultats obtenus, que, dans tous les cas, 
la longueur de la zone éditée est égale à celle du masque. Si, par exemple, 
on désire insérer dans un texte une zone éditée par masque, il faudra 
d’abord supprimer les blancs à gauche de cette zone (par LTRM$) de 
façon à éviter les blancs entre le mot précédent et la zone. 


5.5 RANG D'UN CARACTÈRE DANS UN JEU DE CARACTÈRE 


Nous avons défini dans le premier chapitre ce qu'était un jeu de 
caractère (voir page 2). Deux fonctions permettent en BASIC de se réfé- 
rer au jeu de caractère utilisé dans un programme : ce sont les fonctions 
ORD (de l'anglais ORDinal) et CHRS (de l’anglais CHaRacter). 


ORD(X$) donne le range (0 à 255) du caractère X$ dans le jeu de 
caractère utilisé. Voici un exemple : 


00010 ! E508 : fonction ORD 

00020 ! 

00030 INFUT "Entrer un caractère :": CAR# 
00040 FRINT "" 

00050 PRINT "le caractère ";CAR$;" a Le rang ";ORD(CAKS#) 
00060 FRINT "“": GOTO 30 

RUN 
Entrer un caractère : À 

Le caractère À a Le rang 193 

Entrer un caractère : % 

Le caractère * a Le rang 92 
Entrer un caractère : % 

Le caractère % a Le rang 108 
Entrer un caractère : À 


le caractère 1 a Le rang 241 


Entrer un caractère 


Inversement, la fonction CHRS(n) donne le caractère ayant le rang 
n dans le jeu de caractère comme le montre l’exemple ci-après. 


Si le rang spécifié est supérieur à 255, la fonction prend comme rang 
le reste de la vision par 256 du chiffre indiqué. 
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00040 ! E509 : fonction CHK$# 
00020 ! 
09030 INFUT "Entrer Le rang :": RANG 
90040 FRINT “Le caractère de rang ";RANG;" est ";CHR$CRKANG) 
00050 FRINT "": GOTO 30 
RUN 
Entrer Le rang : 4194 
Le caractère de rang 194 est K 
Entrer Le rang : 249 
Le caractère de rang 249 est 9 
Entrer Le rang : 456 
Le caractère de rang 456 est H 
Evtrer Le rang : 2650 
Le caractère de rang 2650 est 8 
Entrer Le rang : 79 
Le caractère de rang 79 est. ! 


Entrer Le vana 


5.6 TRI DES ÉLÉMENTS D'UN TABLEAU DE CHAÎNES 


Il est souvent nécessaire de classer les données figurant dans un 
tableau de chaînes de caractères par ordre alphabétique. Les deux fonc- 
tions AIDX (tri d’un tableau en séquence croissante) et DIDX (tri d’un 
tableau en séquence décroissante) permettent de réaliser ces opérations 
de classement. 


Les instructions de tri ont la forme : 


MAT TT = AIDX (T$) f/,c) 
ou DIDX 


— T$ est le tableau de chaînes à trier qui doit être un vecteur, c’est- 
à-dire n’avoir qu’une seule dimension. 


— TT est un tableau de zones numériques ayant le même nombre 
d’éléments que T$. 


let c sont des N° de lignes et de colonnes faculfatifs. 
Ces fonctions AIDX et DIDX effectuent les opérations suivantes : 


a) Les éléments de T$ sont triés en séquence croissante (AIDX) ou 
décroissante (DIDX). 
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b) Les rangs des éléments de T$ sont placés ensuite dans TT dans 
l’ordre du tri. Le rang dans T$ de l’élément qui est le « plus bas » dans la 
séquence est mis dans le premier élément de TT, celui de l’élément de T$ 
qui lui est immédiatement supérieur dans le deuxième et ainsi de suite. 7$ 
n’est pas modifié par l’opération de tri. 


c) Si /et c ont été indiqués, le tableau TT est redimensionné suivant / et 


c. S’ils sont omis, TT prend les mêmes dimensions que T$. 


00010 
90020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
002410 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 


Voici un exemple de programme utilisant le tri d’un tableau : 


E510 : tri d'un tableau 


OFTION RASE 1 

DIM TM$(12)#10,1TTMC42),TT$(12) 

DATA Janvier Février, Mars, Avril,Mai,Juin,Juillet,ñout,Septembre 
DATA Octobre,Novembre,Décembre 

READ MAT TM$ 


FRINT NEUFAGE 

FRINT USING 110: MAT TM$ 

FORM "TM$ contient : ",FOS 20,6xC 10,F0S 20,6%xC 10: 

FRINT "": FRINT "TRI DE TM$ EN ORDRE ALFHARETIQUE CROISSANT":FRINT "" 


MAT TTM=AIDX(TM#) 
FRINT USING 160: MAT TTM 
FORM "TIM contient : ",12%N 3 


FOR I1=1 TO 12 
TT$SCIDE=TMSCTTMCI)) 


NEXT I 

PRINT "" 

PRINT USING 230: MAT TT$ 

FORM "TT$ contient : ",FOS 20,6xC 10,FOS 20,6xC 10 

PRINT "": PRINT "TRI DE TM$ EN ORDRE ALFHABETIQUE DECROISSANT":PRINT "" 


MAT TTM=DIDX(TM$) 
PRINT USING 160: MAT TTM 
FORM "TTM contient : ",12xN 3 


FOR I=i TO {2 
TT$CID)E=TMECTTMCI)) 

NEXT I 

FRINT "" 

FRINT USING 230: MAT TT$ 
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TMH$ contient : Janvier Février Mars Avril 
Juillet Aout Septembre Octobre 


TRI DE TM$ EN ORDRE ALFHABRETIQUE CROISSANT 


TTM contient : 8 4 12 2 1 7 6 5 3 ii 10 9 
TT$ contient : Aout Avril Décembre Février 
Juin Mai Mars Novembre 


TRI DE TM$ EN ORDRE ALFHARETIQUE DECROISSANT 


TIM contient : D 40:44 3 5 6: 7. À 2:12 4.8 
TT contient : Septembre Octobre Novembre Mars 
Juillet Janvier Février Décembre 


Ce programme comprend cinq parties principales : 


Mai 
Novembre 


Janvier 
Octobre 


Ma i 
Avril 


75 


Juin 
Décembre 


Juillet 
Septembre 


Juin 
fout 


1. Le chargement du tableau des noms de mois TM$ (lignes 40 à 


70). 


2. Le tri croissant de TMS (ligne 140) : les rangs des éléments de 


TMf triés se trouvent dans TTM. 


3. Le transfert de TM$ dans TS$ dans l’ordre indiqué par chaque 


poste de TTM (boucle lignes 180-200). 


4, Le tri décroissant de TM$ (qui n’a pas changé) ligne 260. 
5. Le transfert de TM$ dans TSS$ (lignes 300-320). 


EXERCICES : 


1. Édition d'un histogramme 


On entre au clavier 12 valeurs représentant les ventes d’un article pour 
les 12 mois de l'année et on demande d'afficher à l'écran un histogramme. 
Cet histogramme se compose de 12 lignes horizontales ; la longueur de 
chaque ligne est proportionnelle au pourcentage relatif de la vente considé- 
rée par rapport à la vente maximale de l’année et ceci à raison d'une posi- 
tion de l'écran pour 2 %. Par exemple, la Vente maximale ayant été de 620, 
une vente de 255 sera représentée par une ligne de 21 ‘’*’’ (255 x 100 / 
620 x 2 = 21 arrondi à l'unité la plus proche). A la fin de chaque ligne, on 


reportera la valeur de la vente du mois considéré. 


Voici le programme correspondant et un exemple d'histogramme. 
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00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
90200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
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ESi1 : Edition d'un histogramme 


OFTION HASE 

DIM L$x67,U0(12),M$(12)#10 

DATA Janvier,Février,Mars,avril,Mai,Juin,Juillet,Aout,Septenbre 
DATA Octobre,Novembre,Décembre 


READ MAT M$ 
FRINT NEWFAGE ! remise à blanc écran 
INFUT "Ventes des 12 mois ? ": MAT V 
M=0 
FOR I=1 TO 32 ! boucle de détermination 

IF VCI)DM THEN M«UCI) ! de La vente maximale 
NEXT I 
FRINT "" 

l'impression échelle horizontale 

LH="I"&RFTE(" ",49)&"{" 


FRINT USING 230: L4$ 
FORM FOS 13,C 67 


L$="! i 2 3 4 5 6 7 8 9 0 %" 
FRINT USING 230: L4 
LEE" MRRPTE( "0", 410) 


FRINT USING 230: L# 
! boucle d'impression 
FOR I=1 TO 42 | 
OUNDC(UCI)#50/M,0) ! calcul des % divisés par 2? 





L$="!I"ARFTSC"x",FC)&" "&STRECUCT))! constitution Ligne 
FRINT USING 330: M#$C1),1% l! impression Ligne 
FORM C 12,0 67 

NEXT I 


STOF 


Ventes des 12? mois ? 456,511,658,789,910,1023,561,410,589,758,675,90? 


' 
: î 
: i 2 3 4 5 6 7 8 9. 0 % 


l==m-0----0——— O----0---— 0-00 Que Qi ne ve () 
Janvier CHRRERRÉRÉMEREHEHREÉEXE ASE 
Février CRRRLRÉRHRERÉRÉRIÉRÉRHIEMIERXX 4 À 
Mars DIEM HRRRRRARRÉRREERERE TE 
avril EEE RER RÉERRRERÉRÉREREXX 700 
Mai LDH DD DD DE DE DE DE DE DE DE DEEE RURUURURRERRRRRRRRRRURX D À) 
Juin LEE DDC DE DE DE DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE DE DEEE EE CR À OZ 
Juillet LERRHHMHEEERERERREHRERREEEXEXE SO 
Aout LHRKKHKEREREHREEERAREX À410 
Septenbre LRRHRHRHEREMRREREEHHRERRERERERRE SO 
Octobre DIRE ERREREEERELERERERERÉLEREEX 7€ 
Novembre DEEE UUUREREEEEXE 75 
Décembre LEE EE ERREUR EEERERELÉELREREEEEXX DO D 


Ce programme utilise essentiellement RPT$ qui sert ici à générer une 


ligne de blancs (ligne 210), la ligne d'échelle (ligne 260) et une chaîne de 
longueur proportionnelle à une valeur (ligne 310). 
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2. Édition d’un jeu de caractères 


On demande d'imprimer le jeu de caractère utilisé (dans notre cas il 


s'agit de l'EBCDIC) sous forme d'un tableau de 64 lignes et 4 colonnes. 
Chaque élément comprendra : 


— le rang du caractère dans le jeu 

— son équivalent hexadécimal 

— son équivalent binaire 

sa forme imprimée (celle-ci n'existant pas toujours, elle sera blan- 


che dans certains cas). 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 


Voici le programme correspondant et la liste obtenue : 


! ES142 : Edition d'un jeu de caractères 
t 
OFEN £1: "FRINTER,RECL=4198",OUTFUT,DISFLAY 

1 

DIM IMF$(255)#25,1IM#$x25,TIT$#110 ! définition du tableau à imprimer 
1 4 élément = { caractère du jeu 

HE$="01234567897ARCDEF" ! table des chiffres hexadécimaux 
! boucle dé constitution tableau 

FOR K=O TO 255 ! Le rang varie de O0 à 255 

IM$S=CNVRT$C"FIC(ZZ£)",KR) ! édition du rang 

G=REMCK,16)+1 ! calcul du chiffre unités hexa 

D=INT(R/16)+1 LISSSRSS one see dizaine --- 

IM$S=IMS&" "&HE$(D:D)&HE$(G:6G) ! valeur hexa --} tableau 

Q=R: H$="" ! 

FOR 1=1 TO 8 ! boucle conversion en binaire 
G=REM(Q,2) " calcul unité binaire 
Q=INT(Q/2) ! 

H$=STR$S(G)&RS ! valeur binaire --) zone 

NEXT I 

IMS=IMS&"  "&HE&" "&CHRKSE CR) ! 3ZONE caractère --) zone 

IMF$CRI=IMS ! zone --) tableau 

NEXT KR 

TIT$S=RFT$SC"RANG HEXA HINAIRE CAR ",4) 

PRINT £1,USING 250: TIT$ l impression du titre 

FORM C 110,SKIF 2 

1 

FOR 1=0 TO 63 ! boucle d'impression 
FRINT £{,USING 290: IMP$(I),IMF$(I+64),IMF$(I+128),IMF$(1+192) 
FORM 4*xC 26 

NEXT I 


STOF 
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RANG HEXA RINAIRE CAR  RANG HEXA RINAIRE CAR  RANG HEXA BINAIRE CAR  RANG HEXA HINAIRE CAR 
O0 00 00000009 64 40 01000000 128 60 10000000 192 CO 11000000 € 
1 01 00000001 5 41 01000001 129 81 10000001 a 193 Ci 11000001 À 
2 02 00000010 éé 42 01000010 130 G2 10000010 b 194 C2 11000010 E 
3 03 00000011 671 43 01000011 131 63 10000011 © 195 C3 11000011 C 
4 04 00000100 68 44 01000100 132 84 10000100 d 196 C4 11000100 [I 
ÿ 05 00000101 69 45 01000101 133 85 10000101 e 197 CS 11000101 E 
é 06 00000110 70 46 01000110 134 86 10000110 Of 198 Cé 11000110 F 
7 07 00000111 71 47 01000111 135 87 10000111 39 199 C7 11000111 G 
8 08 00001000 72 48 01001000 136 68 10001000 h 200 C8 11001000 H 
9 09 00001001 73 49 01001001 137 89 10001001 :i 201 C9 11001001 ]! 

10 OA 00001010 74 44 01001010 * 138 BA 10001010 202 CA 11001010 

1i OR 00001011 75 4R 01001011 , 137 6H 10001011 203 CB 11001011 

12 OC 00001100 76 4C 01001100 « 140 8C 10001100 204 CC 11001100 

13 OD 00001101 77 AD 01001101 141 8 10001101 205 Cl 11001101 

14 OE C0001110 78 4 01001110 + 142 SE 10001110 206 CE 11001110 

S ,0F 00001111 79 4F 01001111 ! 143 8F 10001111 207 CF 11001111 

16 10 00010000 80 0 01010000 & 144 90 10010000 208 DO 11010000 è 
17 1i 00010001 81 S1 01010001 143 91 10010001 j 209 [1 11010001 J 
18 12 60010010 82 52 01010010 146 92 10010010 k 210 2 11010010 K 
19 13 00010011 83 53 01010011 147 93 10010011 ! 211 NS 11010011 L 
20 14 00010100 84 S4 01010100 148 94 10010100 m 212 [4 11010100 M 
21 5 00910101 85 55 01010101 149 95 10010101 on 213 NS 11010101 ON 
22 16 00010119 Bé 56 01010110 150 96 10010119 oo 214 Lé 11010110 © 
23 17 00010111 87 57 01010111 15 927 10010111 Pp 215 7 11010111 F 
24 18 00011000 Rg 58 01011000 15 98 10011000 4 216 8 11011000 Q 
25 19 00011001 89 59 01011001 153 97 10011001 or 217 [9 11011001 KR 
26 1A 00011010 90 SA 01011010 $ 154 9A 10011010 218 DA 11011010 

27 1R O0G011011 91 SR 01011011 $% 155 9B 10011011 219 [LR 11011011 
28 1C 00011100 92 SC 01011100 * 136 9C 10011100 220 DC 11011100 

29 in 00011101 93 SU 01011101 Oo) 157 9U 10011101 221 DD 11011101 

30 1E 00011110 94 SE 01011110 ; 158 9E 10011110 222 [€ 11011110 
31 1F 00011111 95 SF 01011111 * 159 9F 10011111 Æ 22 NT 11011111 
32 20 00100000 96 60 01190000 - 160 AO 10100000 224 EO 11100000 # 
33 21 00100001 97 61 01100001 / 161 A1 10100001 22% Ei 11100001 
34 22 00100010 98 62 01100010 162 A2 10100010 s 226 E2 11100010 S 
35 23 00100011 99 63 01100011 163 A3 10100011 + 227 E3 11100011 OT 
3% 24 00100109 100 64 01100100 164 A4 10100100 u 228 E4 11100100 OU 
37 25 00100101 101 65 01100101 165 AS 10100101 v 229 ES 11100101 OV 
38 26 00100110 102 66 01100110 166 Ab 10100119 w 230 #Eé 11100110 W 
39 27 00100111 103 67 01100111 167 A7 10100111 x 231 E7 11100111 X 
40 28 00101000 104 68 01101000 168 AB 10101000 y 232 E8 11101000 Y 
41 29 00101001 105 69 01101001 169 A9 10101001 z 233 E9 11101001 2 
42 2A 00101019 106 6A 01101010 à 170 AA 10101010 234 EA 11101010 
43 2H 00101011 107 6 O1101011 , 171 AB 10101011 235 EH 11101011 
44 2C 00101190 108 6C 01101100 % 172 AC 10101100 2%6 EC 11101100 

S 2h 00101101 109 él 01101101 173 Al 10101101 237 El 11101101 
46 2E 00101110 110 6E 01101110  ) 174 AE 10101110 238 EE 11101110 
47 2F 00101111 111 6F 01101111 0? 175 AF 10101111 239 EF 11101111 
48 30 00110000 112 70 01110000 176 HO 10110000 240 FO 11110000 0 
47 31 00110001 113 71 01110001 177 H1 10110001 241 F1 11110001 1 
50 32 00110010 114 72 01110010 178 KH2 10110010 242 F2 11110010 2 
91 33 00110011 115 73 01110011 179 H3 10110011 243 F3 11110011 3 
S 34 00110100 116 74 01110100 180 H4 10110100 244 F4 11110100 4 
93 35 00110101 117 75 01110101 181 HS 10110101 245 FS 11110101 5 
94 36 00110110 118 76 01110110 182 Eé 10110110 246 F6 11110110 6 
95 37 00110111 119 77 01110111 183 E7 10110111 247 F7 11110111 7 
56 38 00111000 120 78 01111000 184 EHB 10111000 248 F8 11111000 8 
97 39 00111001 121 79 01111001 On 185 EH? 10111001 249 F9 11111001 9 
58 JA 00111010 122 7A 01111019 : 186 HA 10111010 25 FA 11111010 
59 3B 00111011 123 7B O1111011 £ 187 EB 10111011 251 FR 11111011 
60 3C 00111100 124 7C 01111100 à 188 HEC 10111100 232 FC 11111100 
6éi 3D 00111101 125 70 O1111101  ? 189 ED 10111101 25 FD 11111101 
62 JE 00111110 126 7E O1111110 = 190 HE 10111110 25 FE 11111110 
63 3F 00111111 127 7F O1111111 " 191 BF 10111111 255 FF 11111111 


La partie essentielle de ce programme est la boucle FOR .… NEXT des 
lignes 90 à 220. Dans cette boucle, le programme : 


— convertit le rang en un nombre de deux chiffres hexadécimaux par divi- 
sion par 16 et consultation d’une table de conversion (lignes 100-120). 


— convertit également ce rang en binaire par divisions successives par 
2 (lignes 150-180). On aurait pu utiliser une table de conversion d'hexa- 
décimale en binaire. 
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— « récupère » le caractère correspondant au rang par la fonction CHR$ 
(ligne 200). 


La boucle des lignes 270 à 300 permet l'impression du tableau sur 
quatre colonnes. 


3. Cryptage du contenu d'un fichier 


Cet exercice a le même énoncé que l'exercice N° 2 du chapitre 4 à une 
différence près : le jeu de caractères utilisé n’est plus un jeu fictif compre- 
nant les chiffres et les lettres de l'alphabet mais l'EBCDIC dont la liste 
figure dans l'exercice précédent. 


00010 ! ES31 : CRYFTAGE DU CONTENU D'UN FICHIER 
00020 ! 

00030 OFTION HASE 

00040 

00050 OFEN £1: "NAME=ACRYPT", INPUT 

00060 OFEN £2: "NAME=CRYPTE",OUTFUT 

00070 DEFINITION DES CHAINES 
00080 DIM F(5) position roues mobiles 


!‘ ouverture des fichiers 

1! 

1! 

1: 

1 
00090 ! par rapport à refer. 

1 

! 

1 

' 


4.Fichier à crypter 
2.Fichier crypté 


00100 DIM EAC$(12)x5 - enreg.è crypter(5x412) 
00140 DIM ECR$(12)x5 - enreg.crypté (5x2) 
00120 DIM CC$x5 - clé de cryptage 


00390 NEXT J 

00400 WRITE £2,USING 290: MAT ECR$ 
00410 GOTO 270 

00420 END 


gpe suivant de l'enreg. 
écriture enreg.crypté 

—-) trait.enreg suivant 
#x*x FIN DU FROGRAMME #x# 


00130 ! 
DOLAO eee ans go ae D oo Em 0 D ; 
00150 ! saisie clé cryptage & positiont roues mobiles ! 
00160 !--———————mmmmmmmmmmemmmmmmemmmmm—mmm——— ! 
00170 INFUT "Entrer La clé de cryptage :": CC$ ! saisie clé de cryptage 
00180 ! HOUCLE DE FOSITIONNT 
00190 FOR I1=1 TO 5 ; 
00200 ! La position du car. 
00210 FCI)=ORD(CC#(I:1)) ! dans le jeu est La 
00220 " pos.de La roue mobile 
00230 NEXT I ! 
00240 !--————————mmmmmemmmmmmmemmmmmmmmememmemmmmemme— , 
00250 ! lect.enr.a crypter,cryptage et écr.enr.,.crypté ! 
00260 1m mmmmmmmmmmmmmmmmemmmmemmmmmmmmmmmmmmm ; 
00270 MAT ECK$=("") ‘chaine nulle-)enr.crypté 
00280 READ £1,USING 290: MAT EAC$ EOF 420 ! lecture enreg.à crypter 
00290 FORM 12%C 5 
00300 ! boucle 12 gpes de 5 car 
003410 FOR J=1 TO 12 ! 
00320 FOR I1=1 TO 5 ! boucle 5 car du gpe J 
00330 ; 
00340 FF£<ORD(EAC$CJDCI:1))-F(I1)+256 ! positiont caractère 
00350 ECR$CJ)=ECRS$ (J)&CHRS$S (FF) ! caractère lu sur La 
00360 ! roue mobile N°I 
00370 
00380 NEXT I ! car.suivant du gpe J 

1 

1 

' 

: 
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On voit du premier coup d'œil que l'emploi des fonctions ORD et CHR 
a permis de simplifier considérablement le programme de l'exercice N°2 du 
chapitre précédent : 


— le positionnement des roues est assuré par le chargement dans le 
tableau P des rangs des caractères de la clé de cryptage (fonction ORD 
ligne 210). 


— le remplacement par le caractère lu sur la roue mobile est effectué par la 
ligne 240 (on a ajouté 256 pour avoir toujours un argument positif) et la 
ligne suivante qui va chercher dans le jeu EBCDIC le caractère transposé. 


4. Constitution et édition d’un lexique 


On entre au clavier chaque mot français du lexique et sa traduction 
anglaise (en majuscules, chaque mot ayant au plus vingt caractères). On 
demande d'éditer à partir de ces entrées : 


— un lexique français-anglais 
— un lexique anglais-français 


Dans chaque lexique, le mot original sera imprimé en majuscules et sa 
traduction en minuscules (voir exemple ci-après). 
On supposera que le lexique ne dépasse pas 200 mots dans chaque lan- 
gue. 
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00010 
09020 
00030 
00040 
00050 
00060 
00070 
00080 
09090 
904100 
90110 
004120 
00130 
00440 
00150 
00160 
09170 
90180 
00190 





00290 
00400 





00340 
00350 
00360 
09370 
003840 
00390 
90400 
00410 
00420 
00430 
90440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 


E514 Edition d'un lexique 
OFTION RASE 
DIM FR$(200)#x20,ANS(200)#20,TRI(200), 
FRINT NEUFAGE 
FOR I=1 TO 200 
LINFUT "Entrer Le mot en français 
IF MF$="FIN" THEN EDIT 
LINFUT "Entrer Le mot en 


NEXT 


EDIT 


FRIN 
FORM 


MAT 






FOKM 


STOF 


FRECTIELTEME CMP) 
ANT CID ELTRME (MAY) 
I 


MAT TRISAIDX(FK#) 


T £4255,USING 4190: 
X 40! 
FOR I=1 TD 200 

K=TRI CL) 

MF$=FRS CK) 

IF MFg="" 

MF #) 

*"ADSCMF$,20) 

EFSCMFS,L+i," ",", 


THEN 330 






MASELURCS CANS CK D ) 
FRINT £255,USING 320: MF$,MA$ 
FORM X 10,2xC 20,SKIF 2? 
NEXT I 





TRI=AIDX (ANS) 


: NEWFAGE 

] £ S5,USING 399: 

X 140,"ANGLAIS",FOS 31, 
FOR Ix1 TO 200 

KeTRICT) 

MAS=ANS CK) 

IF MAÿ="" THEN 520 
LEeLENCMAS) 

MAS=RFADS (MAS, 20) 
MAS=SREFS CMAS,L+i," ", 


MF£=LURCS (FR CK) ) 
FRINT £#255 ,USING 320: 
NEXT I 


MA$,MF$ 


anglais 


M"FRANCAIS",FOS 34, "ANGLAIS" 


"FRANCAIS" 
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MASX20,MF$#20 


l'écran à blanc 

! boucle d'entrée des mots 
ou FIN :": MF$ 

2": MAS 

! cadrage à gauche et chargement 
! des mots dans Les tableaux 


' impression du titre 
,SKIF 3 

CR RS ! 
! boucle d'édition FR-AN! 
A os om ni am gun sis cut ns 2506 ent ut me eu ie mn mr me cest mm me 
! indice de l'élément trié 
! mot en français 

! test si mot existant 

U 

' 

[ 

1! 

1 

L 


blancs à La fin du mot 
remplacement blanc par 
à La fin du mot 

mot anglais en minuscules 


point 


impression d'une Ligne 
Von eue mer on vo om nee one omne eme oume me eme ee 0e mue mue one me om ee ee ee ! 
! tri des mots anglais ! 
D mice once om mom mue es cons eme mme me ee ee eme mes mes me me me me me © où me 1! 


: saut de page 

l impression du titre 

; SKIP 3 

CS Q 

! boucle d'édition AN- ER 

CR 
indice de l'élément trié 
mot en français 
test si mot existant 


remplacement blanc par point 
à La fin du mot 
mot français en minuscules 


[ 
' 
[ 
1 
! blancs à La fin du mot 
L 
L 
L 
l impression d'une Ligne 
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Entrer Le mot en français ou FIN : CARACTERE 
Entrer Le mot en anglais : CHARACTER 

Entrer Le mot en français ou FIN : CHAINE 
Entrer Le mot en anglais : STRING 
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Entrer Le mot en français ou FIN : SOUS-CHAINE 


Entrer Le mot en anglais : SURSTRING 


Entrer Le mot en français ou FIN : CONCATENATION 


Entrer Le mot en anglais : CONCATENATION 
Entrer Le mot en français ou FIN : INSERER 
Entrer Le mot en anglais : INSERT(TO) 
Entrer Le mot en français ou FIN : TABLEAU 
Entrer Le mot en anglais : ARRAY 

Entrer Le mot en français ou FIN : FIN 


FRANCAIS ANGLAIS 
CARACTERE. cos sséess character 
CHAINE..,.,,.:::....strinq 
CONCATENATION.,...., concatenation 
INSERER, sssssssosse insert(to) 
SOUS-CHAINE.........substring 
TABLEAU osssascse °..arVaYy 

ANGLAIS FRANCAIS 
ARRAY sssssssssssusss tableau 
CHARACTER ss caractere 
CONCATENATION.,.,.,, concatenation 
INSERTOTOD ss inserer 
STRING, ssssssnasnses chaine 
SURSTRING. ss... sous-chaine 


Ce programme utilise surtout la fonction ‘tri d'un tableau" : 


— les mots à trier sont entrés au clavier et chargés dans les tableaux FR$ 
et ANS après avoir été alignés à gauche (ligne 110 et 120). 


— les rangs des éléments du tableau trié sont mis dans TRI par la fonction 
AIDX de la ligne 180. 


— la boucle d'impression lignes 210-330 aligne, convertit les éléments à 
éditer suivant l'ordre spécifié dans TRI. On remarquera l'emploi de la fonc- 
tion SREP$ pour remplacer les blancs par des points (ligne 280),. 


— l'édition de la deuxième partie du lexique est identique à la première 
(lignes 350-520). 
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5. Édition d'une lettre 


On désire éditer une phrase d’un accusé de réception à un règlement. 
Le texte de cette phrase est le suivant : 


Nous accusons réception de votre règlement du JJ/MM/AA d'un mon- 
tant de XXX XXX,XX francs et nous avons le plaisir de vous adresser ci- 
joint un chèque de YY YYY,YY francs à titre de ristourne pour paiement 
comptant. 


Le montant du règlement et sa date seront entrés au terminal, le mon- 
tant dela ristourne sera égal à 2 % du montant du règlement ; la phrase 


sera affichée au terminal. 


00010 E545 : Edition d'une lettre 
00020 OFTION INVF inversion point et virgule 
00030 
00040 DIM TAS#255,TR$*«255 
00050 
00060 TA$="Nous accusons réception de votre réglement du £1 d'un montant " 
00070 TASE=TAS& "de £2 Frencs et nous avons le plaisir de vous adresser " 
00080 TA$S=TA$S&"Ci-joint un chèque de £3 Francs à titre de ristourne pour" 
00090 TA$=TA$&" paiement comptant" 
00400 
00110 FRINT NEUWFAGE 
001.20 FRINT "" 
00130 INPUT Mazzzzz) Entrer montant et date du réglement :": M,D 
00140 
00150 D$=CNURT$C"pic(££/££/E££)",D) ! édition de La date 
00160 M$=CNURT$C"FIC(CZ22Z 2Z£.££)",M) l'édition du montant réglement 
00170 RES=CNURTSC"FICCZZ ZZ£,£E)",Mx,02) l'édition du montant ristourne 
00180 

TH$=TAS mouvement vers zone édition 






TRS SREFS$CTKH$,1,"£1",D#$) 
TR$=SREFSCTHS,1,"£2",LTRMS (M$) ) 


insertion de D$ dans TKH$ 
insertion M$ avec sup.blancs 





2 TRSESREFSCTRS,1,"£3", LTRM$ (RS) ) insertion R$ avec sup.blancs 
00230 
00240 FRINT "" 
00250 FRINT TEH$: GOTO 129 
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Entrer montant et date du réglement : 12358.02,120582 





Nous accusons réception de votre réglement du 12/05/82 d'un montant de 12 358,00 
Francs et nous avons Le plaisir de vous adresser ci-joint un chèque de 247,16 F 
rancs à titre de ristourne pour paiement comptant 


Entrer montant et date du réglement : 12,45,100582? 





Nous accusons réception de votre réglement du 10/05/82 d'un montant de 12,45 Fra 
nes et nous avons le plaisir de vous adresser ci-joint un chèque de 0,25 Francs 
à titre de ristourne pour paiement comptant 


Entrer montant et date du réglement : 9846123,11058? 





Nous accusons réception de votre réglement du 11/05/82 d'un montant de 986 123,0 
O Francs et nous avons le plaisir de vous adresser ci-joint un chèque de 19 72 
50 Francs à titre de vistourne pour paiement comptant 





sæ) Entrer montant et date du réglement 





Ce programme est une application directe de l'édition de zones numé- 
riques par CNVRTS et PIC. Nous avons pris soin de supprimer les blancs à 
gauche des zones éditées (fonction LTRM$ des lignes 200, 210 et 220). 


On remarquera la façon dont est indiqué l'endroit dans la phrase où il 
faut insérer les variables éditées : cet endroit est spécifié par le caractère £ 
suivi d’un chiffre. 

L'insertion s'effectue alors à l’aide de la fonction SREPS qui remplace 
le ‘"'£ 1", par exemple, par la zone éditée (lignes 220-220). Cette techni- 
que est utilisée dans l'opération dite de « fusion texte-fichier » que nous 
allons voir au chapitre suivant. 


6 


LA BUREAUTIQUE ET 
LE LANGAGE BASIC 


6.1 GÉNÉRALITÉS 


Comme on le sait, la « Bureautique » est une discipline qui vise à 
automatiser les tâches manuelles dites « de bureau ». Dans une entre- 
prise, ces tâches sont assurées non seulement par les secrétaires dont c’est 
l'objectif principal mais aussi à des degrés variables par chaque membre 
du personnel quel que soit son rang et sa fonction. Il ne faut d’ailleurs 
pas oublier les particuliers qui, en fonction des possibilités et des con- 
traintes de la vie moderne, effectuent chez eux un certain nombre de ces 
travaux de bureau. 


Les spécialistes ont analysé ces tâches et les ont classées en trois 
grandes rubriques que nous pouvons illustrer en prenant comme exemple 
le secrétariat d’un service commercial. Ces trois grandes familles sont les 
suivantes : 


a) La gestion des textes 


Ces textes sont de nature et de volume très variables : ce sont des let- 
tres envoyées à des clients ou venant de ceux-ci, des communications 
internes à l’entreprise, des manuels de procédure ou des notices techni- 
ques. Gérer ces textes consiste non seulement à les frapper, ce qui consti- 
tue la partie la plus évidente de cette gestion mais aussi à les modifier, à 


86 BASIC et le traitement de textes 


les classer et à les archiver. Il ne faut pas d’ailleurs oublier une pièce 
essentielle de cette gestion : la recherche d’un texte à partir de critères 
variés : la date d’émission, le nom de l’auteur ou celui du destinataire, les 
sujets traités etc... 


b) La gestion des fichiers 


Il ne s’agit pas là des fichiers « de base » de l’entreprise tels que le 
fichier du personnel, le tarif ou les comptes-clients, par exemple. Ces 
fichiers-là sont informatisés en général depuis longtemps mais nous vou- 
lons parler des innombrables « petits » fichiers tenus manuellement par 
chaque employé dans son coin et suivant ses propres normes. Ce peuvent 
être la liste du personnel assortie de diverses annotations utiles à la secré- 
taire, un carnet de rendez-vous ou le planning personnel d’un représen- 
tant, la liste des notaires ou des géomètres du secteur etc. 


Ces fichiers ont des supports également très divers : carnets, réper- 
toires, fiches cartonnées ou même feuilles volantes. Leur « informatisa- 
tion » n’a, souvent, pas été jugée « rentable » ou possible : les volumes 
sont trop faibles, les données trop changeantes, les ordinateurs trop gros 
etc. etc. Par contre, il est envisageable de prendre en compte la ges- 
tion de tels fichiers à l’aide de micros ou mini-ordinateurs ou de systèmes 
de traitement de textes. 


La gestion de ces fichiers est, en général, simple et peut se ramener à 
deux opérations principales : 


— la création et la mise à jour d’enregistrements 

— l'édition de listes : 

ces éditions sont souvent précédées d’opérations de sélection et de tri 
d’enregistrements. 


c) La diffusion des textes 


Dans un certain nombre de cas, une secrétaire va taper une lettre ou 
une communication interne à l’intention d’un client donné ou d’un seul 
membre du personnel. Dans d’autres cas, par contre, elle adressera le 
même texte à un ensemble d’individus. Elle enverra, par exemple, une 
lettre d’invitation à tous les avoués du canton, une convocation à une 
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réunion pour tous les représentants d’un secteur ou une lettre de relance 
à tous les mauvais payeurs. 


Ces textes, une fois imprimés, sont obtenus par rapprochement 
d’un texte, fixe mais comprenant des zones variables (le nom du destina- 
taire, son adresse, la date du jour, le montant dû...) laissées « en blanc » 
et d’un fichier qui, lui, contient les valeurs à attribuer à ces zones varia- 
bles. C’est d’ailleurs pourquoi on appelle généralement cette opération 
une « fusion Texte-Fichier ». 


Ces opérations de fusion deviennent de plus en plus fréquentes au 

niveau de l’entreprise alors que les communications écrites individuelles 
se raréfient. Les campagnes de vente de masse, les opérations de « publi- 
postage » (mailing en anglais) sont devenues monnaie courante. Contrai- 
rement aux fichiers évoqués au paragraphe précédent, ceux utilisés dans 
ces fusions sont la plupart du temps des extraits de fichiers informatiques 
internes (les fichiers du personnel, des clients, des effets impayés) ou 
nationaux (le fichier INSEE des entreprises). Des opérations de calcul 
simples (multiplication d’un prix unitaire par une quantité ou d’un mon- 
tant par un taux de TVA) peuvent faire partie intégrante de ces traite- 
ments. 
C’est d’ailleurs en analysant ces opérations de fusion Texte-Fichier que 
l’on se rend le plus compte que la frontière entre Informatique et 
Bureautique est bien imprécise sinon totalement artificielle. Un contrat 
de vente, par exemple, est-il un état informatique assez semblable à une 
facture, complété d’un certain nombre de constantes alphanumériques 
ou bien est-ce le résultat de la fusion de textes contractuels avec un 
fichier « clients » et un fichier « tarif » ? La réponse est si peu évidente 
que, pour ce problème, on peut trouver dans la même entreprise deux 
solutions différentes : l’une à base d’ordinateur et de programmes, 
l'autre utilisant une machine de traitement de textes. 


Nous allons maintenant voir comment le langage BASIC avec ses 
instructions et surtout ses organisations de fichiers peut permettre ces 
trois grandes fonctions de la Bureautique : la gestion des Textes, celle des 
Fichiers et la fusion des Textes et des Fichiers. 
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6.2 GESTION DES TEXTES 


Rappelons tout d’abord une évidence : contrairement à ce qui se 
passe avec une machine à écrire, le texte à imprimer ou plus générale- 
ment à gérer est saisi au clavier et stocké sur support magnétique (disque 
« souple » ou « dur », en général) dans un premier temps, puis relu à 
partir de ce support et imprimé dans un deuxième temps. Dans cette 
optique, un texte sera donc simplement un fichier et un fichier tout sim- 
ple puisqu’il ne comporte pas de nombreuses « zones » numériques ou 
alphabétiques comme dans un fichier informatique « normal » mais une 
seule zone qui est ce que nous avons appelé jusqu'ici une « chaîne de 
caractères ». 


Le premier problème que nous allons avoir à résoudre est donc de 
découper cette chaîne en enregistrements de LONGUEUR FIXE, la 
« longueur variable » n’étant pas, sauf exception, supportée par le 
BASIC. Pour déterminer ce découpage, on a le choix, a priori, entre 
deux méthodes diamétralement opposées (avec des variantes plus ou 
moins proches de l’une ou de l’autre de ces méthodes). 


La première méthode est, peut-on dire, celle des éditeurs et des 
imprimeurs. Elle consiste à saisir le texte « au kilomètre » en ne men- 
tionnant par des caractères spéciaux que les fins de paragraphe et les 
changements de page voulus par le rédacteur. Sans entrer dans les détails 
d’une technique par ailleurs fort complexe, on peut dire que tout le tra- 
vail de mise en page se fait à l’édition. À ce moment seulement, l’utilisa- 
teur précise les divers paramètres : longueur de la ligne, espacement, 
position des marges, dessin des emplacements réservés à l’insertion de 
figures ou de photographies dans le texte etc... Cette méthode est 
« informatisée » depuis relativement longtemps soit par ordinateur ali- 
menté à l’origine par cartes ou bandes perforées soit par des systèmes 
spécialisés comme les composeuses électroniques. Elle utilise maintenant 
des unités à clavier et écran cathodique comme en entrée, un ordinateur 
pour le traitement et une photo-composeuse en sortie. 


La deuxième méthode est celle de nombreux de fabricants de maté- 
riels et de logiciels de traitement de textes. Elle est basée sur deux consta- 
tations : primo, dans une entreprise, le format des documents est stan- 
dard et, par conséquent, la longueur d’une ligne est patiquement cons- 
tante et secundo, l’utilisateur, que ce soit une dactylo, un représentant ou 
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un ingénieur n’est pas un professionnel de l’édition et désire voir appa- 
raître sur l’écran de visualisation le texte tel qu’il sera imprimé sur le 
document final. Dans cette optique, certains constructeurs proposent 
d’ailleurs des écrans « pleine page ». Avec cette méthode, la plus grande 
partie de la mise en page est assurée par l’utilisateur au moment de la sai- 
sie du texte et cette mise en page est visualisée au terminal. Des touches 
de commande ou des caractères spéciaux permettent de simuler les mar- 
geurs et les crans de tabulation dont sont normalement munies les machi- 
nes à écrire. Par contre, au moment de l’impression, l’utilisateur aura 
beaucoup moins de latitude : il pourra seulement choisir la position de la 
marge, l’espacement entre les lignes et le nombre de lignes par page 
imprimée. À ces détails près, le texte imprimé correspondra à ce que le 
rédacteur voyait sur son écran au moment de la saisie. 


Le choix entre ces deux méthodes est, à notre avis, facile à faire. La 
première est celle choisie par les professionnels de la chose imprimée et 
elle répond aux nombreuses contraintes et à la complexité de leur métier. 
La programmation correspondante est compliquée surtout si on prend 
en compte les problèmes de performance du produit et elle dépasse à 
priori la compétence et les moyens de l’utilisateur du BASIC sur un mini 
ou un micro-système. La seconde méthode, elle, répond d’une façon 
acceptable aux besoins d’une entreprise dont l’activité principale n’est 
pas le traitement de textes. La programmation correspondante est tout à 
fait accessible par le Basic : elle est basée essentiellement sur la gestion 
d’un fichier dont chaque enregistrement représente une ligne du texte et 
aussi une ligne de l’écran cathodique du terminal. Certains utilisateurs 
considèrent d’ailleurs un texte comme un programme « source » et se 
servent, faute de mieux, des modules utilisés normalement pour la ges- 
tion des programmes COBOL, FORTRAN ou RPG pour saisir et impri- 
mer leurs textes. Dans la suite de cet ouvrage, nous ne considèrerons que 
ce type de fichier où un enregistrement correspond à une ligne de texte. 


La deuxième étape va consister à choisir une organisation de fichier. 
Comme on le sait, le BASIC en supporte trois : 
L'organisation séquentielle, l’organisation séquentielle-indexée et l’orga- 
nisation relative. Il convient d’ajouter parfois à ces trois organisations 
principales l’organisation dite « bibliothèque » (en anglais : library) qui 
est une variante de l’organisation séquentielle utilisée en principe pour la 
gestion des programmes « sources » et des procédures d’exécution des 
travaux. 
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A notre avis, l’utilisation des organisations permettant l’accès direct 
(indexée et relative) n’offre pas beaucoup d’intérêt par rapport à l’orga- 
nisation séquentielle. Contrairement à un fichier « client » ou « article » 
où il est utile d’accéder à un enregistrement isolé, le fichier représentant 
un texte est utilisé comme un tout aussi bien au niveau de la saisie (cf. le 
paragraphe suivant) que de l’impression. De plus, il est en pratique 
nécessaire de renuméroter chaque ligne du texte après une modification 
de ce dernier et ceci implique, quelle que soit l’organisation choisie, une 
recopie complète du fichier correspondant. Sauf exception donc, un 
texte sera repésenté par un fichier séquentiel ou un « membre » d’une 
bibliothèque. 


Nous allons maintenant examiner le problème suivant qui est celui 
de la saisie et de la modification. des textes. Nous supposerons, comme 
c’est maintenant pratiquement toujours le cas, que cette saisie se fait à 
l’aide d’un terminal à clavier et à écran cathodique. Tout d’abord on 
voir que l’emploi d’un fichier intermédiaire de travail est nécessaire : le 
rédacteur du texte doit en effet pouvoir revenir à la situation initiale du 
fichier « texte » tant qu’il n’a pas donné son accord définitif à la saisie 
ou à la modification qu’il a effectuée. Compte tenu de cette contrainte, 
la saisie ou la modification d’un texte se déroulera en trois phases (voir 
fig. 6.1) : 


1. Le programme recopie le fichier « texte » sur un fichier de travail si le 
texte existe déjà on crée un fichier de travail « vide » s’il s’agit de la pre- 
mière saisie du texte. 


2. Le rédacteur entre ou modifie son texte ce qui se traduit par des 
ajouts, des modifications ou des suppressions d’enregistrements sur le 
fichier de travail. 


3. Le rédacteur considère que la saisie ou les modifications faites sont 
bonnes et le fichier de travail est recopié sur un nouveau fichier qui 
représente la nouvelle version du texte ; l’ancien fichier texte et le fichier 
de travail sont supprimés. 

Si le rédacteur désire ne pas tenir compte des modifications apportées, le 
fichier de travail est supprimé et le fichier texte initial est conservé. 


Il est à remarquer que le fichier de travail, contrairement au fichier 
« texte », doit permettre l’accès direct car les ajouts, suppressions ou 
modifications d’enregistrements doivent se faire très rapidement durant 
cette phase de saisie conversationnelle. Pour ce fichier de travail, on 
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Fichier 
Texte 
(initial) 



















nom du Initialisation du 
texte ) fichier de travail 
à créer ou TERMINAL ou copie du texte 
à modifier sur le fichier de travail 
Saisie ou Fichie 
modification ISISn 
Texte ———>| TERMINAL de Travail 





du texte 






Fichier Recopie du fichier 
texte de travail sur le 
final fichier texte final 






Suppression du fichier 
Texte initial et du 
fichier de travail 


Fig. 6.1 - Saisie ou modification d'un texte 
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pourra choisir indifféremment l’organisation séquentielle indexée ou 
l’organisation relative. Dans le premier cas, le numéro de ligne consti- 
tuera la « clé » de l’enregistrement correspondant à la ligne. Dans le 
second, ce numéro sera le numéro relatif de cet enregistrement. De toute 
façon, il sera obligatoire de numéroter les lignes du fichier de travail non 
pas de un en un mais de cent en cent (par exemple) de façon à permettre 
l'insertion de lignes entre deux lignes du texte initial. 


Voyons maintenant un peu plus en détail quelles fonctions il faut 
prévoir dans ce programme de saisie et de modification de texte. Ces 
fonctions peuvent se regrouper en deux catégories : 


1. La gestion des lignes du texte 


Ces fonctions permettent à l’utilisateur de manipuler une ou plu- 
sieurs lignes du texte. Elles doivent assurer au minimum : 


— la modification d’une ligne 

— la suppression de lignes 

— l'ajout de lignes blanches entre deux lignes existantes. 

— le déplacement de lignes d’un endroit à l’autre du texte. 

— la copie de lignes existantes dans un autre endroit du texte (les 
lignes existantes restant en place). 

— la copie de lignes appartenant à un autre texte à un endroit donné 


— l'indication par l’opérateur d'instructions relatives à l’impres- 
sion du document final : saut de pages, espacements, « soulignage », 
etCss 
La mémorisation de ces indications se fait souvent au niveau de l’enregis- 
trement lui-même. Elle est faite par des « caractères de contrôle » prévus 
en début ou en fin de l’enregistrement représentant la ligne de texte con- 
cernée. 


La programmation de ces fonctions en BASIC est simple et ne fait 
pas appel aux opérateurs et aux fonctions que nous avons vus dans les 
chapitres précédents. Il s’agit tout simplement d’une gestion « classi- 
que » d’un fichier simple puisque chaque enregistrement ne comporte 
qu’une zone, la ligne de texte et quelques caractères de contrôle. 


2. La gestion des mots 


Là, il n’existe pas de liste « minimale » de fonctions à prévoir. Son 
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contenu dépend essentiellement de l’imagination de chacun et des res- 
sources disponibles pour la programmation de ces fonctions. Citons par 
exemple : 


— l’insertion ou la suppression de mots au milieu d’un déplacement 
automatique des autres mots et coupures en fin de ligne. 


— détection automatique des lignes comportant un mot donné 
— remplacement d’un mot par un autre dans tout ou partie du texte 
— utilisation d’abréviations. 


La programmation de ces fonctions portant sur les mots fera, bien 
sûr, largement appel à toutes les instructions que nous avons vues depuis 
le début de cet ouvrage (POS, SREP$ etc...). Il ne faut pas cacher que la 
programmation de ces fonctions portant sur les mots est beaucoup plus 
complexe que celle de la gestion des lignes, le problème le plus épineux à 
résoudre étant celui des coupures de mots en fin de ligne. Avant de se 
lancer dans tout développement, il faudra bien examiner l’utilité de tèlle 
ou telle fonction demandée par les utilisateurs. Il faut, de plus, prendre 
en compte un facteur externe à la programmation qui est celui du fonc- 
tionnement du terminal : la plupart des terminaux comportent une unité 
de traitement microprogrammé et une mémoire interne (un « buffer ») 
et des touches de fonction du clavier permettent d’insérer ou de suppri- 
mer des caractères sur l’écran, sans communiquer avec l’ordinateur. Il 
nous paraît donc inutile de dupliquer au niveau du programme BASIC 
des fonctions assurées par les microprogrammes des terminaux. 


Nous allons passer maintenant à l’étape suivante qui est celle de 
l’impression des documents. Contrairement à la saisie et si on admet que 
la longueur de la ligne d’impression est celle utilisée à la saisie, la pro- 
grammation en est particulièrement simple : il s’agit d’un programme 
élémentaire de liste avec saut et comptage de pages en fonction des 
options indiquées à la saisie et éventuellement modifiées au moment de 
l'impression : type d’espacement, nombre de lignes dans une page, etc. 


Le dernier sujet que nous allons évoquer concernant la gestion des 
Textes est celui de la recherche d’un document, lettre, mémo, article du 
manuel de procédure etc... Chacun de nous a en mémoire les scènes 
tragi-comiques où Chose demande à sa secrétaire de lui trouver la note 
de Truc à Machin (de fin mai ou plutôt de début juin) concernant - entre 
autre - la climatisation de la salle N° 3 et où ladite secrétaire se promène 
du « chrono » au « classement par sujet » sans résultat apparent. 
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- Là encore, il s’agit d’un problème - celui de la recherche documen- 
taire - qui est connu et informatisé depuis longtemps au niveau des gran- 
des entités : bibliothèques spécialisées, centres de documentation, « ban- 
ques de données » etc. 

Il n’est, bien sûr, pas question de mettre en place dans un secrétariat des 
bases de données sophistiquées mais le BASIC nous permet d’apporter 
une solution simple et satisfaisante, à condition de traiter des volumes 
d’information relativement faible (de l’ordre du millier de documents). 


. Tout le système est basé sur la constitution d’une fiche descriptive 
de document. Son contenu est variable suivant les cas mais on y trouvera 
au moins en ce qui concerne un secrétariat : 


— ]a référence du document. 


— un code de classement permettant de retrouver le document une 
fois classé. 


— sa date d'émission 
— le nom de son émetteur 
— le nom du ou des destinataires le cas échéant 


— un résumé du document. 
Ce résumé peut se limiter à une liste de « mots-clés » ou bien se présenter 
sous forme d’un véritable texte. 


La constitution de cette fiche n’implique pas forcément la rédaction 
d’un document : cette tâche peut être intégrée à la saisie du texte lui- 
même ou bien il suffit de porter quelques annotations en marge du docu- 
ment. Le contenu de la fiche est ensuite enregistré dans un fichier « des- 
criptif ». 


La recherche d’un document se fera bien évidemment par mots- 
clés : la personne intéressée pose sa question sous forme d’une liste de 
mots (auteur, destinataire, sujet etc...) liés entre eux par des « et » ou 
des « ou » logiques. 


Le processus de recherche peut être plus ou moins élaboré : 


— dans un premier temps, on peut se contenter de lire le fichier 
« descriptif » de bout en bout et d’analyser chaque enregistrement (à 
l’aide de la fonction POS, par exemple) pour voir si celui-ci répond à la 
question. 


— si cette méthode très simple conduit à des temps de réponse trop 
longs, il faudra créer un fichier « descriptif inversé » donnant pour cha- 
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que mot-clé (y compris les noms des émetteurs et des destinataires) les 
références des documents (c’est-à-dire les clés des enregistrements) où ils 
se trouvent. 


— on peut ensuite sophistiquer le système au niveau des mots-clés 
en prenant en compte les synonymes, les racines, les mots non- 
significatifs, les conjugaisons etc. 


De toute façon, il ne faut pas perdre de vue qu’un système de 
recherche documentaire dans un secrétariat doit être simple et que l’on 
n’a pas affaire à des juristes ou à des chercheurs mais à des employés 
d’une entreprise recherchant des documents courts et de structures peu 
complexe. 


6.3 LA GESTION DES FICHIERS 


Nous avons défini au début de ce chapitre à quel genre de fichiers 
nous avons affaire : il s’agit de fichiers gérés par une personne ou un 
petit groupe de personnes. Ces fichiers peuvent être créés sur place ou 
peuvent provenir d’une extraction d’un fichier informatique et être com- 
plétés par les utilisateurs localement. 


Formulons tout d’abord quelques remarques de bon sens à propos 
de ces fichiers : 


— leur volume est faible et ils tiennent facilement sur un mini dis- 
que souple. Une secrétaire ne gère pas le fichier des 20 000 personnes de 
son entreprise mais celui des 32 personnes appartenant au département 
qu’elle supporte. 


— leurs utilisateurs ne sont pas des informaticiens : ils sont assez 
peu sensibles aux beautés d’un dessin d’enregistrement, du décimal 
« packé » ou de la virgule flottante. 


— la nature et la forme des données sont très variables dans l’espace 
et dans le temps. Un changement de la politique commerciale de l’entre- 
prise peut amener un représentant à supprimer certaines données de ses 
fiches « client » de même qu’une secrétaire doit ajouter une colonne au 
cahier d’enregistrement des heures supplémentaires suite à une modifica- 
tion de la législation du travail. Or, les fichiers informatiques sont, on le 
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sait, particulièrement rebelles au changement et c’est d’ailleurs souvent 
la raison d’être de ces fichiers « parallèles » ou « pirates ». 


— les contraintes de la codification des données n’enthousiasment 
en général pas les utilisateurs. Ces codifications datent souvent de l’ère 
de la carte perforée (où la « codif » était une nécessité technique) et ont 
été prorogées au fil des ans par les informaticiens bien que les systèmes 
d’aujourd’hui permettent dans bien des cas de s’en passer. Les utilisa- 
teurs préfèrent les données en clair ou, à la limite, les abréviations, les 
codes mnémoniques et les acronymes officiels ou officieux. 


Ceci dit, la notion de fichier est particulièrement familière à l’infor- 
maticien puisque les fichiers sont à la base même de l’informatique. Les 
fichiers qui nous intéressent peuvent être, à notre sens, conçu de deux 
façons différentes : 


1. Comme des fichiers informatiques « classiques » ayant un for- 
mat fixe, chaque donnée occupant une zone allant de telle à telle posi- 
tion, étant numérique ou alphanumérique, etc. 


2. Comme des textes, chaque enregistrement étant une chaîne de 
caractères formée de mots-clés suivis de la ou des valeurs correspondan- 
tes. C’est ce qu’on peut appeler un fichier en « format libre ». 


Prenons un exemple très simple pour mieux expliciter ces deux con- 
ceptions fondamentalement différentes. 


On désire créer un fichier du personnel d’un service à partir d’un 
imprimé ayant la forme suivante : 

nom : DUVAL prénoms : GILBERT, LEON, PAUL 

né le : 12/10/47 à BREST conjoint : MARTIN DENISE 

prénom et date : MARC 5/10/69 

de naissance  : MARIE-CHRISTINE 21/5/72 

des enfants : EVE 30/7/75 


Si on choisit de constituer un fichier en format FIXE, tous les enre- 
gistrements auront /e même dessin, celui-ci, par exemple : 


positions 1 à 20 : NOM 

positions 21 à 30 : PRÉNOM N°1 
positions 31 à 40 : PRÉNOM N°2 
positions 41 à 50 : PRÉNOM N°3 
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positions 51 à 57 : DATE DE NAISSANCE (JJMMAA) 
positions 58 à 67 : LIEU DE NAISSANCE 

positions 68 à 77 : NOM DU CONJOINT 

positions 78 à 87 : PRÉNOM DU CONJOINT 

positions 88 à 97 : PRÉNOM ENFANT N°1 

positions 98 à 103 : DATE DE NAISSANCE ENFANT N°1 


et ainsi de suite pour un certain nombre d’enfants… 


Si maintenant nous choisissons de créer un fichier en format libre, 
l'enregistrement n'aura pas de dessin bien défini et se présentera sous 
forme d’une chaîne de caractères. En ce qui concerne l’exemple ci- 
dessus, cette chaîne peut être ainsi constituée : 


nom:DUVAL;pré:GILBERT,LEON,PAUL,né 1:12/10/47 à 
BRETS ; cjt: MARTIN DENISE ; enf : MARC 5/10/69, MARIE- 
CHRISTINE 21/5/72,EVE 30/7/75 ; 


Comme le lecteur peut le constater, cet enregistrement est un reflet 
assez fidèle de ce que chacun peut lire sur la fiche d’origine. On y 
trouve : 


— des mots-clés qui sont des abréviations du nom de la donnée (pré 
pour prénom, cjt pour conjoint etc...). 


— les valeurs des données (DUVAL,LEON,MARC 5/10/69, etc...) 
— des caractères délimiteurs permettant de séparer les mots-clés des 
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valeurs (”,””,”’:”” et ”’;”” dans notre exemple) 


Examinons maintenant quelles sont les implications du choix de 
l'une ou l’autre conception au niveau des organisations de fichiers et des 
programmes de mise à jour et d’exploitation (sélection, tri, liste, interro- 
gation). 


a) Fichiers en format fixe 


L'organisation séquentielle indexée nous paraît la plus adaptée à ce 
genre de fichier : elle permet à la fois l’exploitation séquentielle et l’accès 
direct aux données. Le choix de la clé est souvent évident et le problème 
des clés « en double » (deux personnes ayant le même patronyme) est 
facilement soluble. 


En ce qui concerne la mise à jour du fichier et son exploitation, 
remarquons tout d’abord qu’il est à peu près indispensable de créer et 
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d’utiliser un « dictionnaire de données » (Data Dictionnary en anglais). 
Ce dictionnaire de données donne pour chaque donnée, son nom symbo- 
lique (celui qui, en principe, est employé dans les programmes), sa 
nature, sa longueur et sa position dans l’enregistrement du fichier, sa 
description, les valeurs permises (s’il s’agit d’un code). Voici un exemple 
de dictionnaire de données correspondant à notre exemple de départ. 


Nom Description nature longueur pos. début 


NOM$ nom de l'employé 1 
PRE1$ prénom N°1 21 
DATNAI date de naissance 51 





etc... 


Ce dictionnaire de données peut n’être qu’une simple liste à laquelle 
Putilisateur se réfère s’il veut savoir où trouver telle ou telle donnée dans 
un enregistrement. Mais, très souvent, ce dictionnaire est lui-même un 
fichier auquel les programmes d’exploitation peuvent accéder. C’est le 
cas de nombreux logiciels de gestion de fichiers qui, à partir d’un diction- 
naire de données « génèrent » des modules de mise à jour, de liste et 
d’interrogation pour ces fichiers. Les programmes ainsi obtenus sont 
eux-mêmes des programmes en BASIC, en COBOL, en RPG etc... Ce 
processus est illustré par la figure 6.2. 


Les fournisseurs de logiciels présentent de plus de ces modules stan- 
dard des « langages d’interrogation » (Query Languages) permettant à 
Putilisateur de programmer à l’aide d’instructions simples des interroga- 
tions personnalisées ou des listes « à la demande ». Il est à noter que le 
BASIC est en soit un excellent langage d'interrogation et que, de plus, il 
est la plupart du temps interprétatif ce qui élimine les compilations sou- 
vent longues des programmes écrits en COBOL ou en RPG, par exem- 
ple. Il n’est pas du tout irréaliste d’apprendre aux utilisateurs « de la 
base » le BASIC ou du moins ses instructions logiques et arithmétiques 
quitte à leur fournir des routines « squelette » de lecture des fichiers aux- 
quelles il suffira d’incorporer les modules logiques et arithmétiques écrits 
par ces utilisateurs. En voici un exemple très simple : 
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L Saisie du Fichier 
DONNÉES | TERMINAL Dictionnaire Dictionnaire 
de Données de Données 


Génération des 
; programmes 
DONNÉES ; TERMINAL - de mise à jour 
- d'interrogation 
- de liste 


SPÉCIFIQUES 


etc... 


Bibliothèque 
de 
Programmes 


’ Fichier 
MODIFS TERMINAL Exécution des à maintenir 
s ) 


INTERRO programmes 


ou à interroger 





Fig. 6.2 - Génération de logiciels standard de gestion des fichiers 
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10 OPEN £ : "NAME=CLIENT" 
20 LEC: READ £,USING 30 : NOMS$,A$,B$ EOF 70 


30 GOTOTEST routine squelette 
40 GOTO LEC fournie par 
50 PRT : PRINT NOMS l'informaticien 
60 GOTO LEC 

70 STOPO 


100 TEST : IFA$=’’112""ANDB$=""AB14" THENPRT) module logique 


1101FA$="'356""ORB$='"'XW12'" THEN PRT sélection écrit 
120 GOTO LEC par l'utilisateur 


La « fusion » entre la routine squelette et les modules logiques se 
fait automatiquement par l’intermédiaire des « commandes » BASIC du 
système. 


Pour clore cette étude des fichiers en format fixe, essayons de voir 
quelles en sont, sinon les défauts, mais les limitations. Tout d’abord, ces 
fichiers supportent assez mal le changement : 

— l’ajoût d’une donnée non prévue à l’origine De non 
seulement la modification du dictionnaire de données, mais la 
« régénération » des modules standard de gestion du fichier. 

— La modification de longueur d’une zone est encore plus 
pesante : il devient nécessaire de recopier le fichier en déplaçant 
toute les zones. 


De plus, la prise en compte des données « multiples » (plusieurs 
prénoms ou plusieurs enfants, dans notre exemple initial) n’est pas tou- 
jours évidente. Il est en effet obligatoire de prévoir un nombre maximal 
de « postes » pour ces données multiples et cela peut entraîner à la limite 
la création de plusieurs types d’enregistrement ce qui complique considé- 
rablement la gestion et l’exploitation des fichiers. 


b) Les fichiers en format libre 


Rappelons-le, un fichier en format libre est en réalité un fichier texte 
analogue à ceux que nous avons vus au paragraphe précédent mais où la 
longueur d’enregistrement-est arbitraire et n’a rien à voir ni avec la lar- 
geur de la ligne d’impression ni avec celle de l’écran cathodique. 


L'organisation de fichier est a priori séquentielle, chaque enregistre- 
ment étant repéré par un N° d’ordre en séquence. On peut, néanmoins 
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utiliser le séquentiel indéxé si une clé commode peut être trouvée : dans 
notre exemple, ce pourrait être, bien sûr, le nom (assorti des initiales des 
prénoms si on veut éviter les « doubles »). L'enregistrement serait légè- 
rement différent : une donnée serait en format fixe : la clé, c’est-à-dire le 
nom, et les autres données en format libre. Rien n’interdit d’ailleurs de 
« panacher » ces deux types de format pour profiter des avantages de 
chacun d’eux. Les données du fichier réputées intangibles seront en for- 
mat fixe alors que les données plus mouvantes seront en format libre. 


L'organisation relative peut également être utilisée surtout 
lorsqu’aucune clé possible n’apparaît clairement. On accumule alors les 
enregistrements un par un dans l’ordre d’arrivée. Le fichier peut tou- 
jours être utilisé séquentiellement maïs sa mise à jour sera facilitée si on 
connaît le numéro d’ordre de l’enregistrement à modifier. 


Examinons maintenant les problèmes de mise à jour de ce type de 
fichier. Il n’y a pas besoin de recourir à un dictionnaire de données, il 
faut, au plus, une liste des mots-clés autorisés mais ils peuvent être judi- 
cieusement choisis de façon à éviter toute consultation trop fréquente de 
cette liste. Les opérations de création et de suppression d’enregistre- 
ments sont simples puisqu’elles sont liées à l’organisation utilisée. L’opé- 
ration de modification peut sembler plus complexe mais en y regardant 
bien, on voit qu’elle se ramène à des recherches de caractères séparateurs 
ainsi qu’à des insertions, des suppressions ou des remplacements de sous- 
chaînes, choses que nous savons faire depuis les chapitres 3 et 4 de ce 
livre. 


La recherche d’enregistrements d’après certains critères ne pose pas 
plus de problèmes si on utilise les fonctions BASIC de recherche de mots 
dans un texte. Un seul problème délicat peut se poser au niveau de 
l'exploitation du fichier : celui du tri car la totalité des programmes de tri 
sont conçus pour trier des fichiers en format fixe. S’il n’y a pas assez de 
place mémoire pour trier le fichier à l’aide des fonctions AIDX ou 
DIDX , il faudra créer des fichiers « index » en format fixe et les trier par 
l'utilitaire du système. 


Si nous reprenons les conclusions du paragraphe précédent, nous 
pouvons dire que les fichiers en format variable permettent : 


— l'ajout ou la modification de données dans les enregistrements 
sans avoir à modifier les données déjà présentes et sans avoir à recopier 
le fichier initial. 
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Il existe, bien sûr, une limite physique à la longueur de l’enregistrement 
mais il est possible de créer sans problème des enregistrements « suite » 
si la capacité de l’enregistrement initial s’avère insuffisante. 


— la gestion des données multiples à l’intérieur d’un même enregis- 
trement. Il n’y a pas de limite a priori au nombre de ces données si ce 
n’est la longueur de l’enregistrement, problème évoqué plus haut. 


Par contre, il faut reconnaîatre que le nombre de logiciels disponi- 
bles pour le traitement de ce type de fichier est très limité. 


Rappelons au lecteur que ces conclusions sont valables pour des fichiers 
de faible volume. Pour obtenir les mêmes possibilités de traitement sur 
les « grands » fichiers de l’entreprise, il faut recourir à des « bases de 
données » sophistiquées et nécessitant un investissement initial impor- 
tant. 


6.4 LA FUSION DES TEXTES ET DES FICHIERS 


Tous les programmeurs font ou ont fait de la « fusion Texte- 
Fichier » comme M. Jourdain faisait de la prose, c’est-à-dire sans le 
savoir. Une facture, un relevé de compte ou un bulletin de paie résultent 
d’une ou plusieurs opérations de fusion texte-fichier. Les textes sont 
ceux préimprimés sur le document ou ceux sortis par le programme ; les 
fichiers utilisés sont ceux de l’entreprise : le tarif, le fichier client ou les 
divers fichiers comptables. Ce type de fusion ne nous intéresse pas beau- 
coup : il représente l’écriture de plusieurs programmes et il s’agit d’opé- 
rations répétitives programmées par du personnel en général spécialisé. 


Au niveau d’un secrétariat, le problème qui se pose est de repro- 
duire x fois le même texte en changeant à chaque coup la valeur de quel- 
ques « variables » : le nom du destinataire, son adresse, une date etc. Il 
s’agit en général d’opérations beaucoup plus simples qu’une facturation 
ou une paie : diffusion d’une note à un service, envoi d’une lettre d’invi- 
tation à des clients ou convocation d’un certain nombre de personnes à 
une réunon de travail. Pour ce faire, on dispose (voir fig. 6-3) : 


— d’un texte créé ou modifié pour la circonstance 


— d’un fichier en format fixe ou libre. Il s’agira souvent d’un 
extrait de fichier obtenu par sélection et tri d’un fichier informatique 
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Fig. 6.3 - Fusion Texte-Fichier 
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- La logique de l’opération est simple et identique dans tous les cas ; 
elle est représentée figure 6.4. Elle consiste : 


1. à lire le texte en mémoire sous forme d’un tableau 

2. à lire un enregistrement du fichier 

3. à mouvementer les données du fichier à l’intérieur du texte 
4. à imprimer le texte 

5. à recommencer la lecture en 2, jusqu’à la fin du fichier. 


Cette opération peut faire l’objet d’un programme « squelette » 
mais toute la difficulté consiste à trouver une méthode pour mouvemen- 
ter (point 3) les données du fichier vers le texte sans avoir à écrire un pro- 
gramme ou une partie de programme à chaque fois. Cette fois encore, 
deux possibilités sont offertes : le format « fixe » et le format « libre ». 


En format fixe, on entrera dans le programme « squelette » une 
table indiquant pour chaque variable : 


— ses positions de début et de fin dans l’enregistrement 


— le numéro de la ligne de texte et la position dans cette ligne où la 
variable doit être placée. 


Par exemple, l’élément de cette table figurant ci-dessous : 


101 117 012 044 


spécifiera que la variable se trouvant dans les positions 101 à 117 de 
l'enregistrement doit être imprimée sur la ligne n° 12 du texte à partir de 
la position 44 de cette ligne. Ceci suppose évidemment que la place 
nécessaire au milieu du texte ait été prévue au moment de la rédaction de 
ce texte. 


On peut améliorer ce système en prévoyant, par exemple, un « code 
d’édition » permettant d’indiquer qu’une zone doit être, non seulement 
mouvementée, mais aussi éditée suivant un certain « masque » (dates, 
montants, etc...). Si une variable se trouve incluse au milieu d’un texte, il 
faudra penser à supprimer les blancs au milieu du texte définitif. 


La deuxième méthode (format libre) consiste à indiquer, dans le 
corps du texte à éditer, la place des variables par un caractère spécial 
suivi du nom abrégé de la variable. De même, le fichier sera présenté en 
format libre : chaque enregistrement comprend le nom des variables 
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Fig. 6.4 - Ordinogramme de la fusion texte-fichier 
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suivi de leurs valeurs avec des caractères séparateurs. Voici un exemple 
d’application de cette méthode : 


TEXTE A FUSIONNER : 


*NOM Paris,le *DATE 
*AD1 
*AD2 
*AD3 
*AD4 
*TITRE, 


Nous vous prions de vous présenter à nos bureaux le *DATA pour y 
subir des tests psychotechniques. 


FICHIER A FUSIONNER 


Enreg. N° 1: 


*DATE=12/05/82,*N0OM =M.DUPONT, * AD1 = 36300 LE BLANC 
*DATA=25/05/82,*TITRE = Monsieur 


Enreg. N° 2: 


*DATE=12/05/82,*NOM=MELLE MARTY; *AD1=RESIDENCE V. 
HUGO 


*AD2=BATIMENT C,*AD3 = 14 RUE ALFRED DE VIGNY, 
*AD4 = 37000 TOURS; *DATA = 3/6/82,*TITRE = Mademoiselle 


RESULTAT DE LA FUSION : 


Texte N° 1 


M. DUPONT Paris, le 12/05/82 
36300 LE BLANC 


Monsieur, 


Nous vous prions de vous présenter à nos bureaux le 25/05/82 
pour y subir des tests psychotechniques. 
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Texte N° 2 


MELLE MARTY Paris, le 12/05/82 
RESIDENCE V. HUGO 

BATIMENT C 

14 RUE ALFRED DE VIGNY 

37000 TOURS 


Mademoiselle, 


Nous vous prions de vous présenter à nos bureaux le 3/6/82 
pour y subir des tests psychotechniques. 


On notera que la présence de toutes les variables indiquées dans le 
texte n’est pas nécessaire dans chaque enregistrement : ainsi les variables 
*AD2, *AD3, *ADA4 ont-elles été omises dans le premier enregistrement. 
Cette méthode nous paraît plus souple que la première car elle évite de 
calculer les positions dans une ligne et de remplir une table supplémen- 
taire. Par contre, elle oblige à prévoir un fichier en format libre. La pro- 
grammation en BASIC ne pose aucun problème. Le traitement consis- 
tera à : 


— rechercher dans le texte le nom d’une variable (fonction POS) 


— ce nom étant trouvé, rechercher dans l’enregistrement du fichier 
la valeur attribuée à cette variable (fonction POS). 


— si cette valeur est trouvée, remplacer le nom de la variable dans 
le texte par cette valeur. 


Ces méthodes sont applicables pour des opérations de fusion Texte- 
Fichier simples. Pour des opérations plus compliquées, il sera préférable 
d'écrire un programme adapté à chaque opération. 


6.5 CONCLUSION 


Nous pensons avoir, au cours de ce chapitre, montré au lecteur que 
les opérations prises en compte par la Bureautique sont parfaitement 
programmables à l’aide du BASIC, éventuellement complété par 
l'emploi éventuel de logiciels standard de gestion de fichier. L’utilisation 
du BASIC permet, de plus, de n’avoir qu’un seul langage de program- 
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mation aussi bien pour le traitement des applications de gestion que du 
traitement des textes. Dans la pratique, on s’aperçoit vite que les deux 
sont intimement liés et qu’il n’y a pas de différence fondamentale entre 
les deux types de traitement. La seule différence essentielle ne réside pas, 
à notre avis, dans les traitements eux-mêmes, mais dans les habitudes, la 
psychologie et le mode de pensée des « clients » respectifs. L’informati- 
cien qui aborde donc pour la première fois les problèmes « bureauti- 
ques » aura donc tout intérêt à considérer le facteur humain au premier 
chef quite à faire passer au second plan les considérations techniques de 
langage, de système ou de performances. Il ne faut pas perdre de vue que 
ces applications bureautiques sont des applications simples si on les com- 
pare à toutes celles que l’informatique a permis de prendre en compte 
durant ces trente dernières années. De plus, les matériels que ce soit du 
point de vue de la mémoire, de la rapidité de calcul où des capacités sur 
disques s’avèrent en général sur-dimensionnés pour ces applications de 
bureautique. Le premier impératif est donc pour l’informaticien ,de 
« faire simple », étant bien entendu que cette simplicité est à considérer 
du point de vue... des utilisateurs. 
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EXERCICES RÉCAPITULATIFS 


1. Indexation automatique d'un document 


On demande de constituer automatiquement l’'Index d'un document à 
partir de ce document lui-même supposé enregistré sous forme d'un 
fichier. Cet index se présente sous forme d'une liste donc chaque ligne 
comprend un mot suivi des numéros des pages où celui-ci figure, exemple : 


LANGAGE : 12,45,78,105 
LANGUE  : 15, 48, 156 


Le fichier « Texte » est composé d'enregistrements de 64 caractères 
de long et a le dessin suivant : 


pos. 1 à 60 : une ligne de Texte 
pos. 61 à 64 : le N° de la page. 


Les mots (200 au maximum) devant figurer dans l'index sont entrés 
au début de traitement par le rédacteur de texte. 
Celui-ci a la possibilité d'entrer, soit un mot en entier, soit une racine des 
mots à rechercher suivi d'un astérisque. Dans ce dernier cas, il faudra 
rechercher dans le texte tous les mots commerçant par cette racine. Par 
exemple, si le rédacteur entre la racine ‘'PROGRAMM*"" devront figurer 
dans l'index les pages où apparaissent les mots PROGRAMMES, PRO- 
GRAMMEURS, PROGRAMMATION, PROGRAMMÉES, etc... Un mot qui 
apparaîtrait plus d’une fois dans la même page ne devra figurer qu'une 
seule fois dans l'index. On supposera qu'un mot ne peut pas être « à che- 
val » sur deux lignes. 


Voici le programme correspondant à ce traitement : 


110 


00010 
00020 
00050 
00040 
00050 
000460 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
001.60 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
90330 
00340 
00350 
00360 
00370 
00380 
003970 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
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INDEXATION AUTOMATIQUE D'UN DOCUMENT 


OFTION BASE { 


DIM 
DIM 
DIM 


FOK 


M$(200)*18 
F#(200)x%40 
TRI(200) 


1=1 70 200 
INFUT "Entrer 
IF MOT$="FIN" 
M$CI)=MOT# 





un MOT ou FIN": 
THEN 130 


MOT$ 


NEXT I 


DIM 


LS$=" 


OFEN £4: 
READ £4, USING 
FORM C 


LE$*64,L$*62 
PUS À ER 

"NAME=TEXTE", INFUT 

190: L$,FG EOF 400 
60,N 5 


Lhe" "aLEa". 


FOR 


Lei TO I 


MOTE=ME CL) 
FePFOSCMOTS,"x",41) 

IF F0 THEN MOT$(CF:F): 
Q=FOSCL4,MOT#, 41) 

IF Q=0 THEN 380 

IF FOS(LS$,L#$(Q-1:Q-1),1)=0 THEN 380 
IF F0 THEN 360 

LO=Q+LEN CMOT 4) 

IF FOS(LS4,L#&(LO:LO),1)#0 THEN 


380 


Fâg=", "ASTRSCFG) 
IF FOSCF$CL),FA$,1)20 THEN 
F$CL)=F$CL)E&FAS 


380 


NEXT L 


GOTO 


MAT 


FOR 


189 
TRI=AIDX (M$) 
Le TO 200 


N=TRI(L) 
MOTS=ME CN) 


IF MOT$="" THEN 510 

FAS=FS$SCN) 

IF FA$="" THEN 510 

FRINT £255,USING 500: MOT$,FA$S(2:40) 
FORM C 18," ",C 40 


NEXT L 


Ce programme comprend quatre parties : 


1 
1 
1! 
1 





origine des 
Def,tableau 
Def.tableau 
Def.tableau 


indices en Î 
des mots 

des pages 

de tri 
ÉOUCLE DE 


SAISIE DES MOTS 


test si fin de saisie 


chargement mot 


définition & 
de La 


initialisation 
Liste des séparateurs 
texte 
texte 


fichier 
Ligne de 


ouverture 
lecture 


séparat.avant & Ligne 


après 


: NOTE 

lue 
test si % 
EUPPTESS 

recher 
mot non 
test si 
si * —}) 


dans Le mot 
* pour recherche 
mot dans Ligne 
trouvé 
sépar.avant 
mot Trouvé 
calcul posit.ap 
test si sépar.apr 
si Le mot est trouvé 
ajout virgule/convers 
page déja dans La Lis 
ajout page dans La Liste 
L'élément du tableau p 
fin boucle de recherche 

-} lLect,ligne texte suiv, 





Le mot 






Le mot 














TKI DU TABRLEAU DES MOTS 


EOUCLE EDITION DE LA LISTE 
extraction mot du tableau 
“mot suivant si Long,nulle 
extraction Ligne paye 
mot non utilisé +) mot 
impression Ligne 


Suiv 


1. La saisie par l'utilisateur des mots faisant partie de l’Index (lignes 
80 à 120). 


2. La lecture du fichier «TEXTE», la recherche dans chaque ligne des 
mots de l'index et la constitution des listes de pages (lignes 170 à 390). 
On remarquera qu'après avoir détecté dans une ligne un mot faisant partie 
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de l'index, on vérifie qu'il est précédé et suivi (sauf s'il s'agit d'une racine) 
d'un séparateur (lignes 290 à 320). Après chaque lecture, on a encadré la 
ligne de texte par un séparateur (ligne 200). 


3. Le tri des mots de l’Index, le résultat se trouvant dans le tableau TRI 
(fonction AIDX, ligne 410). 


4. L'édition de la liste suivant l'ordre contenu dans TRI (lignes 430 à 
510). On n'imprime, ni les mots de longueur nulle (ceux qui n’ont pas été 
entrés), ni les listes de longueur nulle (celles correspondant à des mots non 
trouvés dans le texte). Ligne 490, on n'imprime pas la première position de 
PA$ car elle contient une virgule inutile. 


2. Génération d’un Kwic-Index 


Un KWIC-INDEX (KWIC = KeyWord In Context) est une liste d’ouvra- 
ges triée et présentée en séquence sur des mots - clés appartenant au titre 
de l'ouvrage. Une telle présentation permet de retrouver aisément un 
ouvrage dont on ignore le titre exact. 


Le fichier « TITRES » des titres et des ouvrages est composé d’'enre- 
gistrements de 80 caractères comportant : 

— de 1 à 9 : le numéro de référence de l'ouvrage en bibliothèque 

— de 10 à 80 ; les 71 caractères du titre de l'ouvrage. 


Le traitement comprend trois étapes : 


a} On met en évidence les mots-clés constituant un titre et on crée, par 
mot-clé détecté, un enregistrement ayant le format suivant : 


— de 1 à 9 : le numéro de référence 
— de 12 à 51 : les 40 caractères précédant le mot-clé 
— de 54 à 103 : le mot-clé et la suite du titre. 


Au cours de ce traitement, on élimine des mots-clés n'ayant pas de 
signification (et, ou, est, or, donc, etc...). Ces mots sont contenus dans 
une «liste noire» qui est sous la forme d’une zone alphabétique de 250 
caractères. 


b} Le fichier « KWIC » ainsi constitué est trié sur les positions 54 à 
103 (mot-clé et la suite). 
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c} Le fichier trié «KWICTRI» est listé pour donner le KWIC-INDEX 









Fichier 
«TITRES» 





Programme de 
formattage 
«KWICIND» 


Fichier 
«KWIC» 












Tri sur 
les positions 
54 à 103 







Fichier 
«KWICTRI» 








Edition 
«EDIKWIC» 






Fig. 7.1. — Organigramme de la constitution d'un KWIC - INDEX. 


Par exemple, l'enregistrement du fichier «TITRES» suivant : 


1 Référence de 9110 Titre de l'ouvrage (71 caractères) 80 
l'ouvrage 





exzsazriae MORT DU PETIT CHEVAL | 





donnera lieu à écriture de trois enregistrements : 





8 40 caractères 8 Mot-clé et suite du titre 
1 Référence 915112 précédant le mot-clé 512154 (50 caractères) 103 
CX2342710 LAFÂMORT DU PETIT CHEVAL 
CX2342710 LA MORT DUSAPETIT CHEVAL 


CX2342710 LA MORT DU PETITZACHEVAL 
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Après tri sur le mot-clé et la suite, un extrait du fichier trié se présen- 





tera ainsi : 
Mot-clé et suite du titre 
1 Référence g! |2 51! 154 (argument de tri) 
CX2342710 LA MORT DU PETIT/ACHEVAL 
AZ4492075 LE CHEVAL D'ORGUEIL 
TB4991042 ON ACHEVE BIEN LESÿACHE VAUX 
CB4242097 LES CHEVAUX DU SOLEIL 


On supposera que les mots de chaque titre peuvent être séparés les 
uns des autres soit par un blanc, soit par un signe de ponctuation (,;.:'). Un 
mot clé aura une longueur maximale de 50 caractères. 


La façon dont cet exercice a été programmé appelle quelques com- 
mentaires : 


a) nous avons tout d’abord supprimé tous les blancs, sauf un, à droite 
de la zone titre (instruction 270), le blanc restant servant à repérer facile- 
ment la fin de cette zone. 


b} nous avons ensuite placé 40 blancs à gauche de la zone «titre» de 
façon à faciliter le transfert de la partie précédent le mot clé (280). 


c{ nous avons stocké cette zone dans une zone de réserve et remplacé 
tous les caractères séparateurs (,.;:) par un seul : le «blanc» (instructions 
340 à 360). 


d} nous recherchons ensuite les mots clés dans la zone «titre» ainsi 
modifiée et nous faisons les mouvements à partir de la zone de réserve de 
façon à garder le titre d'origine. 


103 
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90010 ! 
00020 ! 
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00030 ! Ouverture des fichiers 
00040 ÜFEN £i: "NAMEZ=TITRES",INFUT ! 4.Fic.Titres en entrée 
00050 OFEN £2: "NAME=KWIC",OUTFUT 1 2.Fic, KWIC en sortie 
00060 ! DEF,.CHAINES CARACTERES 
00070 DIM MCH#S5O Lo mot-clé 
90080 DIM TIgxii? ! - titre de l'ouvrage 
0900 DIM TKhx112 l- titre ( reserve ) 
00190 DIM F404%%40 ! —- 40 caractéres 
00110 DIM S50$x50 lo mot-clé et La suite 
00120 DIM LN$#250 + Liste noire 
00130 DIM CS4xé ! - Liste car.séparateurs 
00140 DIM KF#$x9 l + réference ouvrage 
00150 U INITIALISATION 
00160 LN$E"ET OÙ NI MAIS OR CAR DONC SI ALORS" + de La Liste noire 
00170 LNSELNS&M"JE TU IL ELLE NOUS VOUS ILS ELLES" ! 
00180 LNSELNE&R"MON TON SON MA TA SA ME TE SE NOTRE VOTRE LEUR" 
00190 LNEELN£SA"QUI QUE QUOI QU DONT DU DES DE LE LA LES Y A" 
00200 Die, Ve + Liste car,.séparateurs 
RSS A 
! Lecture fic,TITRES et ecriture fic.KWIC 
[ 
READ £i,USING 250: KF#$,TI4 EOF 480 ! Lecture fichier titres 
FORM C 9,C 40 . 
TISERTRMECTIYSIA" " ! suppr.bl.droite sauf À 
TLRERETSE CM M, 40) TI loinsertion 40 b,à gauche 
TKHE=TIS ! mise en reserve de TI 
LLEN CTI) ! stockage longueur Titre 
! 
Fx40 ! 
DeF +1 ! recherche des mots 
FOR Ii TO 6 ! 
TIH=SREFECTIS,1,CS$CT:I)," ") remplacement séparateur 
NEXT I ! par des blancs dans TI 
1 
*‘OSCTIS," ",D) lrech,f blanc dans TI 
:Q THEN STOF À l'arret anormal 
! 
! 
IF FOSCLNE,TISCD:F-41),41)30 THEN 470 lomot-clé ds Liste noire? 
lomyvts-)sortie à part,T 
æTR4CD-40:D- 10 1 40 car préc mot-clé 
TR$(D:90) f - mot-clé et La suite 
004€ WRITE £2,USING 460: KF#4,F404,S50% ecriture fichier KUWIC 
00460 FORM C 9,X 2,0 40,X : 50 
00470 IF Fall THEN 230 ELSE recherche terminée ? 
00460 END xx FIN DU FROGRAMME #%% 


3. Recherche documentaire par mots-clés 


Une secrétaire tient à jour un fichier reflétant tous les documents émis 
et reçus par son secrétariat. Ce fichier comprend les données suivantes : 


5 : le code de classement du document (6 chiffres) 


11 : la date d'émission ou de réception du document sous 
la formle AAMMJJ (821208 par exemple). 


pos. 1 à 
pos. 6 


@- 
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pos. 12 à 31 : le nom de l'émetteur du document 
pos. 32 à 51 :le nom du destinataire principal 


pos. 51 à 113 : les mots-clés caractérisant le texte, séparés par des 
virgules. 


Il est demandé d'écrire un programme permettant de retrouver les 
codes de classement des documents répondant à 5 critères : 


— date comprise entre deux dates limites 
— le ou les noms des émetteurs 
— le ou les noms des destinataires 


— deux listes de mots-clés : à l'intérieur de chaque liste, les mots sont 
liés par des conditions ‘OU’ et les deux listes par la condition ‘ET’. 


Exemple : l'opérateur entre : 
DATES LIMITES ? : 12/03/80, 30/08/81 


EMETTEURS ? : JEAN,HECTOR,PIERRE 

DESTINATAIRES ? : ROGER,JEAN 

LISTE MOTS 1 ? : SYSTEME, ORDINATEUR 

LISTE MOTS 2 ? : PARIS ,MARSEILLE,ABIDJAN,PORT-GENTIL 


Le programme devra rechercher et imprimer les enregistrements des 
documents : 

— datés entre le 12/03/80 et le 30/08/81 

— émis par JEAN ou par HECTOR ou par PIERRE 

— destinés à ROGER ou à JEAN 

— comprenant les mots-clés ‘SYSTEME’ ou ‘'ORDINATEUR"’' et les 


mots-clés ’’PARIS’"" ou ‘'MARSEILLE'" ou ‘’ABIDJAN'' ou 
"PORT-GENTIL'”". 


Pour chaque document répondant aux critères indiqués, le programme 
imprimera le code de classement, la date, l'émetteur et le destinataire du 
document. 


Si les critères DESTINATAIRE ET EMETTEUR sont par exemple, omis cela 
signifiera qu'il ne faut pas tenir compte, ni des destinataires, ni des émet- 
teurs dans le processus de recherche. On considèrera que tous les mots- 
clés sont en majuscules et au singulier. 


Chaque critère peut être omis sauf la date. 
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00010 
00020 
00030 
00040 
00950 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
002410 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
90400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
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OFTION BASE 1 

DIM EM$x20,DE$x20,MC$x64 

DIM LE$*xé64,LD$*x64,L1$%64,L2$%x64 
DIM ML1$(10)#20,ML2$(10)x20 
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RECHERCHE DOCUMENTAIRE FAR MOTS-CLES 


! indices en 
! déf.zones du fichier 
! déf.listes entrées terminal 
! tableaux des mots-clés Liste: 
! ENTREE DES LISTES 
D$,F$ 


origine des 


INFUT "Entrer Les dates Limites :": 
LINFUT "Entrer Liste des émetteurs:": LES 
LINFUT "Entrer Liste des destinataires :": LD$ 
LINFUT "Entrer Liste mots-clés N°1 :": L1$ 
LINFUT "Entrer Liste mots-clés N°2 :": L?4 
1 
D=VAL(D$(7:B)&D$(4:5)&D$(1:2) ! convers.date début en AAMMJ. 
F=VAL(F#$(7:8)4F#$(4:5)&F#$(1:2) ! convers.date fin en AAMMJJ 
IF LE$="" THEN LE={ l indicateur Liste non entrée 
" THEN LD=1 ! 
" THEN Li=1 1 
IF L2$="" THEN L2={ 
V$="," ! une "," après chaque Liste 


LE$=LES$SA&US: LD$S=LDS&US: Li$=L1ISAUS : 


IF Li=1 THEN 300 
FD=1 
FF=FOS(L1$,V0$,FD) 
IF FF=0 THEN 310 
1=1+1 
ML1$CI)=L1$(FD:FF) 
FD=FF+1: GOTO 250 
IF L2=1 THEN 370 
FD={ 
FF=FOS(L2$,U0$,FD) 
IF FF=0 THEN 370 


J=J+1 

ML2$(J)=L2$(FD:FF) 

FD=FF+1: GOTO 320 

OFEN £1: "NAME=DOCUMENT", INFUT 


L?$=L?2$AaUS 


! STOCKAGE MOTS-CLES-) TAHLEAU) 
l'initialisation recherche 

! recherche position virgule 

! recherche terminée ? 

! +1 -) indice 

! Mot-clé -} tableau 

! recherche mot suivant 


l'initialisation recherche 

! recherche position virgule 
! recherche terminée ? 

! +{ -) indice 

! Mot-clé -> tableau 

! recherche mot suivant 

! ouverture fichier document 
! Lecture d'un document 


READ £1,USING 400: CC,DD,EM$,DE$,MC$ EOF 640 


FORM ZD 5,2D 6,C 20,C 20,C 63 
IF DD<D OR DD)F THEN 390 

IF LE={ THEN 440 

IF FOS(LES,EM$&V$,1)=0 THEN 390 
IF LD=1 THEN 460 

IF FOS(LD$,DD$&V$,1)=0 THEN 390 
IF Li=i THEN 540 

MC$S=MCS&US 


FOR N=Â TO I 


IF FOS(MC$,MLI$SCN),1)2)20 THEN 540 


NEXT N 
GOTO 390 
IF L2=1 THEN 620 


FOR N=i TO J 


IF FOSCMC$,ML2$CN),1)20 THEN 620 


NEXT N 
GOTO 390 


FRINT £255: 
GOTO 390 


CC,DD,EM$,DE$ 


00640 STOF 


test sur Les dates 

test sur émétteur ? 
émetteur dans La Liste 7? 
test sur destinataire ? 


destinataire dans La Liste 
test sur Liste 1 ? 


"," après Liste mots-clés 


boucle recherche mot-clés 
du tableau 1 dans document 
mot-clé trouvé ? 


si non trouvé —-} lecture 
test sur liste 2 7? 


boucle recherche mot-clés 
du tableau 2? dans document 
mot-clé trouvé ? 
si non trouvé -} lecture 

IMPRESSION DOCUMENT TROUVE 


' 
' 
' 
' 
' 
' 
1 
1 
1 
1 
0 
' 
1 
! 
' 
1: 
0 
0 
' 
1 
' 
! —-} lecture 
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Ce programme comprend trois parties . 


1. L'entrée par INPUT et LINPUT des critères de recherche (lignes 80- 
120). 


2. La mise en forme de ces critères de façon à simplifier la recherche 
des documents (lignes 140-360). Cela consiste à : 


— convertir les dates JJ/MM/AA en numérique AAMMJJ (lignes 140 
et 150). 

— positionner des indicateurs pour signaler au programme que tel ou 
tel critère n’a pas été entré (lignes 160-190). 


— détecter les mots-clés des listes L1$ et L2$ et les placer, un par un, 
dans les tableaux ML1$ et ML2$ (lignes 210-360). 


3. La lecture des documents et la recherche correspondant aux critè- 
res (lignes 390-620). Cette recherche se fait essentiellement par la fonc- 
tion POS en tenant compte des indicateurs positionnés en 2 (lignes 420, 
440, 460 et 540). 


4. Liste à la demande d’un fichier en format fixe 


Les services administratifs d’un constructeur d'ordinateurs gèrent un 
fichier « SYSTEMES » comprenant un enregistrement par système installé 
chez les clients de ce constructeur. Le « Dictionnaire de Données » corres- 
pondant à ce fichier est le suivant : 


Nom abrégé Description Positions dans 
de Ja donnée de la donnée le fichier 
CLI nom du client 3-12 
SYST type de système 13-16 
AGE code de l'agence responsable 17-19 
MAT matricule de l'ingénieur respons. 20-24 


AN année d'installation 25-26 
ACTI code activité client 27-28 
CPOS code postal du lieu d'installation 29-34 
VILLE ville d'installation 35-54 





Ce dictionnaire de données sera chargé dans le programme par DATA. 


On demande de concevoir une application permettant au service Mar- 
keting de lister ce fichier suivant une certaine séquence et après avoir 
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sélecté les enregistrements comportant certaines valeurs pour certaines 
données. 


Le processus de traitement se fera en trois étapes : (voir fig. 7.2). 


1. SÉLECTION : l'opérateur entre les listes des valeurs pour les don- 
nées à sélecter et la liste des données à faire figurer dans l'argument de tri- 
Ce programme crée un fichier intermédiaire en sortie « SYSTSELE » com- 
portant : 


de 1 à 54 : l'argument de tri 
de 55 à 108 : l'enregistrement à trier 


2. TRI: il s’agit d'un programme utilitaire standard qui trie systémati- 
quement les 54 premières positions du fichier intermédiaire créé en 1. 


3. LISTE : il s'agit également d’une liste standard des données en posi- 
tions 55-108 du fichier intermédiaire trié. 


On demande d'écrire le programme de SELECTION. Ce programme 
devra : 


— Sélecter les enregistrements et mouvementer chaque enregistre- 
ment sélecté dans le fichier en sortie 


— constituer l'argument de tri et le placer également dans l'enregistre- 
ment en sortie. 


Voici un exemple de ce qui peut être entré par un utilisateur pour ce 
programme : 

TRI ? : AN,CPOS,AGE 

SELECTION ? : AN=78,79,80 

SELECTION ? : SYST=5422,8952 


Ces entrées signifieront que le programme devra sélecter les enregis- 
trements concernant les systèmes de type 5422 ou 8952 installés en 
1978, 1979 ou 1980 et que l'argument de tri sera constitué de l’année, 
du code postal et du code de l'agence. 


Voici le programme correspondant : 
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Fichier 
SYSTEMES 


critères de tri D programme 
de 

critères et valeurs ) SELECTION 

de sélection 









Fichier 
SYSTSELE 


utilitaire de 
| TRI 
pos 1 à 54 









Fichier 
SYSTSELE 
trié 






liste 
standard 





programme 
d'édition 
LISTE 






Fig. 7.2 - Liste à la demande d'un fichier en format fixe ” 
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00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
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OFTION BASE f 
DIM E$x52,ARG$Xx52 


DIM NOM$(8)x5,DER(8) ,FIN(8) 
DIM SEL(8),TRI(8),L$(8)x64 


DATA CLI,SYST,AGE,MAT,AN,ACTI,CFOS, VILLE 
READ MAT NOM$ 

DATA 3,13,17,20,25,27,29,35 

READ MAT DEK 

DATA 12,16,19,24,26,28,34,54 

READ MAT FIN 

DIM ZE$*64 

LINPUT "TRI 7": ZE$ 
ZE$S=RTRM$S(LTRM$(ZES)D&"," 

D=i 


F=FOS(ZES$,",",D) 
IF F=0 THEN 280 
NOZ$=ZE$(D:F-1) 
I=SRCHONOM$, NOZ ) 
IF 1)-1 THEN 260 


FRINT "Nom de zone invalide": GOTO 170 
KeK+1: TRICI)=K 

D«F+1: GOTO 200 

LINFUT "SELECTION ? ": ZE 


IF CMDKEY=7 THEN 400 
ZE$=RTRMS(LTRM$(ZE$))&"," 
F=POS(ZES$, "=",41) 
NOZ$=ZE$(4:F-4) 
I=SRCHCNOMS , NOZ$ ) 

IF 13-14 THEN 360 

GOTO 250 

SEL(I)=1 
L$CI)=ZE$(F+1:64) 

GOTO 280 


MAT TKI=AIDX(TKI) 


OFEN £1: "NAME=SYSTEMES", INFUT 
OFEN 42: "NAME=SYSTSELE", OUTFUT 
READ £{,USING 460: E$ EOF 620 
FORM C 54 
FOR I=1 TO 8 

IF SEL(I)+:0 THEN 550 

D$=E$(DEHÇI):FINCI)) 

IF FOS(L$CI),D$,1)=0 THEN 450 
NEXT I 


ARG$="" 
FOR Nzi TO 8 

T=TRICN) 

IF I1=0 THEN 609 

ARGE=ARGÉS&DECDERCI):FINCT)) 
NEXT I 


WRITE £1,USING 610: ARG$,E$ 
GOTO 450 
STOF 
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LISTE À LA DEMANDE D'UN FICHIER EN FORMAT FIXE 


origine des indices en { 
déf.enreg,fichier & arg.tri 
DEFINITION DICTIONNAIRE 
tabl.dictionnaire de données 
tabl.ind.sélect/tri & Listes 
CHARGEMENT DICTIONNAIRE 


- chargt des noms de zones 


- chargt posit.début de zone 
— chargt posit.fin de zone 
ENTREE DES FAKRAMETRES 
def.zone d'entrée au clavier 
entrée spécif. de tri 
suppression blancs 


détéction virgule 


extraction nom de zone 
recher,nom ds dictionnaire 
nom trouvé 7? 

message erreur —-) entrée 
positionnement indic.de tri 
-) recherche nom suivant 
entrée sélection 

entrée terminée ? 
suppress.blancs et ajout ", 
détéction signe *# 
extraction nom de zones 
recher nom ds dictionnaire 


nom trouvé 7? 

message d'erreur & -—)} entrée 
posit.indic.de séléction 
stockage Liste 


—) trait,séléction suivante 


TRI DES INDICATEURS DE TRI 
LECTURE, SELECTION & ECRITURE 
ouverture fichier systèmes 


lecture enreg,àa sélecter 


HOUCLE DE SELECTION 

donnée à tester 7? 
extraction valeur à tester 
VALEUR HORS LISTE -)> lecture 
suite de La séléction 

cet enreg.est sélécté —---») 
remise à blanc argument tri 
CONSTIT:ARGUMENT TRI 
zone à mettre -} arg, 








extraite 


zone 
suite boucle 


“argument tri 


ecriture enreg.sélécté 
—} Lecture 
FIN DE TRAVAIL 
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Ce programme peut se décomposer en quatre modules : 


1. Le chargement du « dictionnaire de données » {lignes 90-140) par 
DATA et READ. 


2. L'entrée des paramètres (lignes 150-380). Au niveau de chaque don- 
née du dictionnaire à sélecter, le programme positionne un indicateur SEL 
montrant que cette donnée est à sélecter et place dans SEL$ la liste des 
valeurs à sélecter (lignes 370 et 380). De même, un indicateur TRI sert à 
désigner les données devant figurer dans l'argument de tri : si TRI=1, la 
données sera en première position de l'argument, si TRI = 2, en deuxième, 
etc. 


3. Le tri des indicateurs de tri (instruction AIDX ligne 400). Après 
cette opération, on retrouve dans TRI les numéros des données du diction- 
naire dans l'ordre où elles doivent figurer dans l'argument de tri. 


4. La lecture du fichier à sélecter et l'écriture du fichier SYSTSELE 
contenant les enregistrement sélectés (lignes 430 à 610). Ces opérations 
comprennent notamment : 


— la lecture d'un enregistrement (ligne 450). 


— la boucle de sélection qui, pour les données à sélecter (IF-ligne 
480), va voir si sa valeur fait partie de la liste indiquée (lignes 490 et 500). 


— La boucle de constitution de l'argument de tri (lignes 540-580) 
qui, pour les enregistrements sélectés, concatène les valeurs des zones 
(ligne 570) dans l’ordre indiqué dans TRI (ligne 550). 


— l'écriture de l'enregistrement sélecté (ligne 600) composé de 
l'argument de tri et des données lues sur «SYSTEMES». 


5. Création et mise à jour d'un fichier en format libre 


Une société de services en Informatique désire créer un fichier PROS- 
PECT en format libre. Ce fichier comprendra les données suivantes : 


Pos.1 : indicateur de suppression 
pos.2-11 : nom abrégé du prospect 
pos.11-255 : texte décrivant les activités du client 


Ce fichier est en séquentiel indéxé, sa clé étant le nom abrégé. Le texte 
est composé de mots-clés entre parenthèses et des valeurs correspondan- 
tes séparées par des virgules. Chaque ligne de texte se termine par une vir- 
gule. Les mots-clés autorisés sont les suivants : 
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PER : personnes contactées chez le prospect 
APL : applications traitées 

MAT : marques des matériels installés 

LOG : logiciels utilisés 


ACT : secteurs d'activité du prospect 


Voici un exemple d'enregistrement de ce fichier : 


Clé : STE SFAM 

Texte: (ACT)AUTOMOBILE, (MAT)WANG,IBM,DEC (LOG)COBOL, 
CICS,BASIC, (APL)COMPTA,STOCKS,CALCUL, (PER) 
DUVAL,MARTIN, 


Tous les mots-clés ne figurent pas obligatoirement dans un enregistrement 
donné. 


On demande d'écrire : 


1. un programme de création et de suppression d'enregistrement 

2. un programme de mise à jour du fichier permettant l'ajout d'une 
valeur à une liste caractérisée par un mot clé, le remplacement d'une valeur 
par une autre et la suppression d’une valeur à l'intérieur d’une liste exis- 
tante. 


Exemple d'ajout : 
— mot-clé : PER 
— donnée à ajouter : MARC 
Exemple de remplacement : — mot-clé : PER 
— ancienne valeur : DUVAL 
— nouvelle valeur : DUPONT 


Exemple de suppression :  — mot-clé : PER 
— valeur à supprimer : MARTIN 


Après exécution de ces trois mises à jour, l'enregistrement contiendra : 
Clé : STE SFAM 


Texte: (ACT)AUTOMOBILE, (MAT)WANG,IBM,DEC, (LOG)COBOL, 
CICS, BASIC, (APL)COMPTA,STOCKS,CALCUL, (PER) 
DUPONT,MARC, 


Voici le premier programme suivi d’un exemple d'exécution : 
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90010 
00020 
000%0 
90040 
00050 
00040 
00070 
00080 
00090 
00100 
00110 
00120 
00140 
00140 
00150 
00160 
00170 
00180 
00190 
90200 
00210 
00220 
00240 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
0032? 
00330 
00340 
00350 
00360 
00370 
90580 
00390 
90490 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00460 
00490 
00500 
00510 
00€ 





1 
1 


E705 CREATION ET SUFFREESTON 
OFEN Æ£f: "NAME: 
DIM LACEESA, Nû 


EÙ 






CT, 
F0: L$*é4, 


ÉHANDON"., 
E$x?44 


KEYED 






créer ou £ 


5 pour pour suppr 
OFC"C SE IN",CMSE, 1) 
 GOTO 130,130,120 NONE 230 
STOF 
LINFUT Entrer nom abrégé client: "2 NAT 
GOSUE 250 
ON CAS GOTO 240,480,190,220 
GOSUR 320: GOTO 90 
GOSUE 370: GOT #0 


existant": GOT 90 
"Enreg,non trouvé ": GOTO 90 
“mouvement mon valide": GOTO 90 
MEnrea,trop Long non crée": GOTO 90 


“Enreg.dé ja 





FRINT 


NAEEKRFADECNAS, 10) 
















tEAD £1,REYENAS: NOKEY 310 
E TURN 
CAS:CAS +2: RETURN 
REURITE ££,USING "FORM 'S'": 
FRINT NA#; "Supprimé ": RETURN 
Egenr 
INFUT "Mot-clé ou CRE pour créer enreg, " 
IF MC$="CRE" THEN 510 
IF FOSCLMCE,MCS,41)30 THEN 450 
“RINT "mot-clé non valide ": GOTO 410 

T "Entrer Les valeurs "Mi V4 

(ES, MC#, 1) 

O THEN 490 

4:0)=V44a",": GOTO 410 

PA" CMEAMEGA M) MAUSE", 

GOTO 4410 
URITE ££4,USING 520: NA$,ES 
FORM FOS 2,0 10,0 244 
FRINT "Enreg.crée: ";E#%: RETURN ! 


D'ENREG, DANS UN FICHIER 


message et 
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ER FORMAT LIBRE 


ouverture du fichier 
Long 
validées 


ENTRÉES 


test enreg, tr 6P 
liste mots,.clé 
TRAITEMENT "DE 
entrée du type de mouvement 
ou FIN CS CMS 

test type mouvement 
débranch{t fonction 
#anxax fin de 
entrée non du 
accès fichier 











mer 


inv t 
MR RRNN 


BAS 
travail 
chrent 

FK (e 








TRADUCTION TARLE DECTISTON 

suivt 

nouve L 
suivante 


suppr.enreg,et entrée 
saisie & création 
enregi.puis entrée 





nessages d' et 


entrée 


erreur 


suivante 






Lecture enreg,fichier ! 
REP DRE 7 
cadrage clé à droite. 

sect/test si enreg.exist 


se 


ant 













- Cas enreg.trouvé 
— Cas enreg.non roue 
S/F suppression d'un enr 
réécriture avec indicateur 
de suppression 
ds enù 8 ee cr ten ei ea un es De ac es 2 eu ct di A con does ed oi one mue a os. À 
aisie et création ! 
ps aus 0 de cm met euet 00e 6e om des 0 mn snssn À 





KAH este tienent 
MC 

—) création enreg.salsl 
test mot-clé dans Liste 
message d'erreur 
saisie Liste des 
mot-clé déja dans 


s'1 


valeurs 
enreg, ? 





insert.valeur après mot-clé 
concaténation avec enreg. 
-}) saisie mot-clé £guivant 





écriture enregistrement 





retour 
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Entrer C pour créer ou S pour supprimer ou FIN : € 
Entrer nom abrégé client: STE SFAM 

Mot-clé ou CRE pour créer enreg, : AFL 

Entrer Les valeurs : STOCK ,FAIE, CALCUL 


clé ou CRE pour créer enreg,. : MAT 


Entrer Les valeurs : IHM/34,DEC FDF-11 
Mot-clé ou CRE pour créer enreg, : LOG 


Les valeurs : HASIC,GAF II 

Lé ou CKE pour créer enreg. : FER 
r Les valeurs :  FIERKRE,FAUL, JACK 
é ou CRE pour créer enreg. : CRE 





STOCK, FAIE , CALCUL, (MAT)IIHM/34,DEC FDF-11, (LOG)HASIC,GAF IT, (FER)DFIERRE, 


JACK 
rs , 
Entrer © pour créer ou S pour supprimer où FIN 


Ce programme est un programme de mise à jour classique d’un fichier 
en organisation séquentielle indéxée. || est composé d’un programme prin- 
cipal (lignes 30-240) et de trois sous-programmes pour accéder au fichier 
(250-310), pour supprimer un enregistrement (350-360), pour saisir les 
données et créer un nouvel enregistrement (400-530). La liaison entre le 
programme principal et les sous-programmes est assurée par l'instruction 
160 qui ne fait que traduire la table de décision suivante : 






Code mouvement = ? 


Enreg. trouvé ? 






mess. ‘déjà existant'” 







mess. ‘’non trouvé‘" 


création enreg. 





suppression enreg. 








lecture code suivant 


traduit par CAS = 





ÉTRIRUE 


La saisie et la création de l'enregistrement appelle quelques explica- 
tions complémentaires : 

— on entre un mot-clé (ligne 410). 

— on saisit ensuite la liste des valeurs (450). Si le mot-clé a déjà été 
enregistré (460-470), on insère la chaîne des valeurs v$ après le mot exis- 
tant (insertion ligne 480). Sinon, on concatène le mot-clé et les valeurs 
(avec les séparateurs) au bout de E$. Il ne faut pas, évidemment, oublier de 
remettre à zéro E$ avant chaque nouvelle saisie d’un enregistrement (ligne 
400). 


Voici le second programme suivi d'un exemple d'exécution : 





F'AUL. 
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00010 ! E%06 : MODIFICATION D'ENKREG.DANS UN FICHIER EN FORMAT LIBRE 
00020 ! 





OFEN Æ£f: "NAME 





“KROSFECT, KANDOM",KEYED ! ouverture du fichier 
90040 DIM LMC$SKÉA4,NAEKIO,Lhxé4,E$x244 ! def,zones caractères 
00050 ON SOFLOW GOTO 410 ! test enreg. trop Long 
00060 LMCH$E"CFER) CAFL) CHAT) (LOG) CACT)" ! Liste mots.clés valides 
00070 ! TRAITEMENT DES ENTREES 
1 








00980 FF l - entrée now du prospect 
90990 " nom du prospect à modifier ou FIN :": NA 

90190 THEN STOF ! test fin de travail -)arret 
00110 l'accès au fichier prospect 
G0120 ON CAS GOTO 140,350 ! débrancht non trouvé/trouvé 














QO130 l'entrée type de mouvement 
00140 PRINT entrer À si ajout,S$ si suppression,M si modification" 

00150 INFUT "ou MAJ pour écrire enreg,mis à jour :": CM$ 

90160 CASEEOS C'ASMMAJ", CM, 4) ! test et débranchement 
Q01%0 ON CAS GOTO 180,240,290,420 NONE 360 l'en fonction type mouvement 
00180 ! TRAITEMENT DES AJOUTS 


00190 INFUT "Mot-clé & valeur à ajouter?": MCE,V# 
00200 GOSUR 540 l'analyse enreg.à modifier 
00210 ON CK GOTO 370,380 20,230 ! debrancht selon code retour 
00220 ERsETHAMCSEUS: GOTO 140 ! mot clé non trouvé-) concat 
002%0 EŒCC:ou)æU$: GOTO 140 lomot clé trouvé -)}insertion 
1! 
1 





90240 TRAITEMENT DES SUFFRESSIONS 
00250 INFUT "Mot-clé & valeur à supprimer 7": MC$,VS 
002460 GOSUR 540 

00270 ON CK GOTO 280,380,390,400 


l'analyse enreg.à modifier 
debrancht selon code retour 











00280 EgéD:F)rz"": GOTO 140 1 suppression valeur 

00260 U TRAITEMENT. DS MODIFICATIONS 
00300 INFUT "Mot-clé,ancienne valeur nouvelle valeur 7": MC$,VS,NS 

00%10 GOSUR #49 ! analyse enreg.ä modifier 
00320 ON CH 41010 330,380,390,400 ! debrancht selon code retour 
003340 ERCD FoeNge",": GOTO 140 ! rempl.ancienne par nouvelle 
00340 ! MESSAGES D'ERREUR 

00350 “Enreg,non au fichier": GOTO 90 : 

003460 "Type mouvt non valide": GOTO 140 

00370 “valeur déja enregistrée": GOFTO {40 ! 

90380 "mot-clé non valide": GOTO 140 | 

90390 “mot-clé non trouvé": GOTQ 140 à 

00400 FRINT "valeur non trouvée": GOTO 140 ! 

00410 FRINT 'enreg,trop Long:fin trait": GOTO 149 

00420 ! 

90430 REURITE ££,USING 480: 54,E% 

00440 FRINT "Enreg,mis à jour ";E$: GOTO 90 ! message à retour trait.svt 
0GA45G 1! S/F ACCES FICHIER FROSFECT 
90460 NéE=RFADECNAS, 10) ! cadrage clé à gauche 

00470 XFAD £S USING 480,KETYE=NAT: S$,E$ NOKEY 530! lecture sur clé et test 


00480  FURM € 


FOS 12,C 244 
00490 LA 








! test si enreg.supprimé 
! supp.blanc gauche E$ 
! affichage enreg.a L'écran 
! enreg,.trouvé et retour 
l'enreg. non trouvé et retour 
1 S/F ANALYSE ENREGISTREMENT 
MÉMRMCER MMS VEEUEENM, Mi LUELENC(VU#) ! car.séparateurs -) MC$ & VE 
(LHC. MCS,1)50 THEN 620 ! test si mot-clé valide 
{ MCH,1): IF EH=O THEN 630 ! test si mot-clé dans enreg. 
MO MONS RE ST ! pos,.déb,mot-clé suivt/fin 
4V#,EH): IF D=9 OK DC THEN 640 ! test si valeur dans enreg, 
1 
' 
1 
: 
: 











oGéoc k cal.pos.fin valeur ds enreg 
006 i 0 TURN mot-clé et valeur trouvés 

9C420 E TURN mot-clé non trouvé ds Liste 
00640 *=3: RETURN mot-clé non trouvé ds enreg 


o0640 CRe4: RETURN valeur non trouvée ds enreg 
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Entrer nom du prospect à modifier ou FIN : STE SFAM 
(AFL)STOCK,FAIE , CALCUL, COMFTA.CLIENTS, (MAT)IIHM/38,DEC FDF-11, (LOG)RASIC, GA IT, 
FERDFIERRE, FAUL, JACK, 

entrer À si ajout,S si suppression," si 
ou MAJ pour écrire enreg.mis à jour : À 
Mot-clé & valeur à ajouter? LOG,COKROL 
entrer À si ajout,S si suppression," si modification 

ou MAJ pour écrire enreg.mis à jour : M 

Mot-clé,ancienne valeur nouvelle valeur ? FEKR,FAUL, JULES 

entrer À si ajout,S si suppression,M si modification 

ou MAJ pour écrire enreg.mis à jour : S 

Mot-clé & valeur à supprimer ? AFL,FAIE 

entrer À si ajout,S si suppression,M si modification 

ou MAJ pour écrire enreg.mis à jour : M 

Mot-clé,ancienne valeur ,nouvelle valeur ? FER, JACQUES, HENRI 

valeur non trouvée 

entrer À si ajout,S si suppression,M si modification 

ou MAJ pour écrire enreg.mis à-:jour : MAJ 

Enveg.mis à jour 

(AFL) STOCK , CALCUL, COMFTA.CLIENTS, (MAT)IHM/38,DEC FDF-11,(LOG)RASIC,GAF IT,COKOL, 
CFERIFIERRE, JULES, JACK, 

Entrer nom du prospect à modifier ou FIN 


nodification 


Ce programme ressemble au précédent. || comporte un programme 
principal (lignes 30 à 450) et deux sous-programmes d'accès au fichier 
(lignes 460 à 530) et d'analyse de l'enregistrement (lignes 550 à 630). Ce 
dernier sous-programme détermine : 


— la validité du mot-clé par rapport à la liste (560) 
— l'existence et la position du mot-clé dans l'enregistrement (570) 


— l'existence et les position de début et de fin de la valeur entrée 
(590). On notera, à ce propos, que la Valeur doit appartenir à la liste con- 
cernant le mot-clé entré et non à une autre liste située « plus loin » dans le 
même texte. 


Ce sous-programme renvoie au programme principal un « code 
retour » CR indiquant le résultat de ces traitements. 
En fonction de ce code, ce programme principal se débranche, soit vers des 
traitements, soit vers des sorties de messages d'erreur, par des GOTO cal- 
culés (lignes 210, 270 et 320). 
Le lecteur notera que ce programme ne supprime par les mots-clés, même 
s'ils ne sont suivis d'aucune valeur (par suite d’une suppression). 


6. Édition en clair d’un fichier en format libre 


La codification des données représente une charge importante lors de 
la constitution et de la mise à jour des fichiers. Les instructions et fonctions 
alphabétiques du BASIC permettent, dans certains cas, de s'affranchir des 
contraintes liées à la codification en employant des abréviations et des 
codes « mnémoniques ». Voici une application de ce type de codification. 
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Un fichier de véhicules d'occasion « OCCASE » se compose d’enregis- 
trements ainsi constitués : 
— de 1 à 9 : numéro minéralogique du véhicule 
— de 10 à 64 : description abrégée du véhicule 

La description abrégée est une chaîne de caractères composée de 
mots qui sont : 


— soit des abréviations dont la signification figure dans une table 
— soit des libellés complets. 


Les mots sont séparés les uns des autres par des virgules, un point ter- 
minant l'enregistrement. 


Ainsi l'enregistrement : 


456XS36 CP, MER, 250SE, 1979, BA, TO, RC, 34000 KM 

signifiera : 

Coupé Mercédès 250SE 1979 Boîte Automatique Toit ouvrant Radio- 
cassettes 34000KM. 
La table des abréviations est constituée par un tableau de 6 chaînes de 
caractères. A l'intérieur de chaque chaîne se trouvent un certain nombre de 
postes : chaque poste comprend l’abréviation, suivi du signe « = » et de la 
traduction de l’abréviation. Il est séparé du poste précédent par un « / ». 


Exemple : 


chaîne 1 : 

CI = CITROEN/PE = PEUGEOT/RE = RENAULT/MER = MERCEDES/etc…. 
chaîne 2 : 

DI = Diesel/B5 = Boîte 5 vitesses/BA = Boîte Automatique/etc…. 


un «/» termine chaque chaîne. 


L'édition se fera sur des lignes de 32 caractères maximum, la première 
ligne étant composée du numéro d'immatriculation. La coupure de ligne 
aura lieu en fin de mot, c'est-à-dire que le dernier caractère d’une ligne 
devra être soit un blanc, soit le dernier caractère d’un mot. On supposera 
que la description éditée fait 255 caractères au plus. 
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00010 ! E707 EDITION D'UN FICHIER EN CLAIR 

00020 ! Ouverture des fichiers 
00030 OFEN £1: "NAME=OCCASE", INFUT ! 4.Véhicules d'occasion 
00040 OFEN £2: "FRINTER",OUTFUT,DISFLAY ! 2,]Imprimante 

00050 ! Définition zones alpha 
00060 DIM NM$x9,DA$X55,MOT$*x31, MORS #32 ! -N°,des.abrégée à& mot 
00070 DIM TA$S(5)x255 ! —-tab,.traduction abrév,. 
00080 DIM DC$x255,LI1$*x32 l -descr.clair,Lig,.impr. 
00090 ! Init.table traduction 
00100 TAS(0)="RE=RENAULT/FE=FEUGEOT/CI=CITROEN/TA=TALEHOT/MA=MATRA/ALÆALFINE/" 
00410 TA$(1)="ME=MERCEDES/OF=O0OFEL/FO=FORD/EM=E.M.U./VU=VOLKSWAGEN/TO=TOYOTA/" 
00120 TA$(2)="CA=cabriolet/HT=cabriolet Hard-Top/C?2=coupé ? p./C3=scoupé 3 p,/" 
00130 TA$(3)="E3=break 3 p./KH5=break 5 p./TO=toit ouvrant/CC=Camping-Car/" 
00140 TA$(4)="IN=injection/DI=diesel/TU=turbo/HA=boite auto/5Vsboite 5 vit./" 
00150 TAS(5)="RA=radio/RC=radio-cassettes/AR=att.remoraue/FM=premiére main/" 
00160 ! 

00470 ! LECTURE ET EDITION EN CLAIR DU FICHIER V.0. 

00180 ! 

00190 READ £i,USING 200: NM$,DA$ EOF 620 ! Lecture/test fin fich. 
00200 FORM C 9,C 55 

00210 DC$="" ! Chaine nulle —> DC$ 
00220 FRINT £2,USING 230: NM$ l'impression N°Immatric. 
00230 FORM SKIF 2,C 10 

00240 DA$S=SREF$(DAS,1,",",",") ! remp.point par virgule 
00250 DA$S=RTRMS(DAS) ! suppr.blancs à droite 
00260 L=LEN(DA$) ! calcul longueur de DA# 
00270 D=f ! EXTRACTION DES MOTS 
00280 F=FOS(DA$,",",D) ! - recherche séparateur 
00290 MOT$=DA$(D:F-41) ! - extraction du mot 
00300 GOSUE 490 ! + appel S/F traduction 
00310 DC$=DCHS&MOTS&" " 1 — mot à La fin de DC$ 
00320 1F F=L THEN 350 ! - dernier mot traité ? 
00330 D=F+f: GOTO 280 l- trait.mot suivant 
00340 ! IMFRESSION DES LIGNES 
00350 IF LEN(DC$)<33 THEN 400 ! + dernière Ligne ? 
00360 IF DC$(33:33)=" " THEN 430 ! - coupure si fin mot ? 
00370 FOR 1=32 TO 4 STEF -1 ! - recherche mot préced 
00380 IF DC$(I:I1)=" " THEN 440 

00390 NEXT I 

00400 FRINT £2,USING 410: DC$ ! - Impress.dernier mot 
00410 FORM X 10,0 32 

00420 GOTO 190 ! - Lecture enreg.suivt 
00430 1=32 

00440 LI$=DC$(1:1) ! - extrac.ligne impress 
00450 FRINT £2,USING 440: LI$ l — impression 

00460 DC$(L:1)="" ! -— suppress. I premiers 
00470 DC$=LTRM$ (DCS) 1 car. & cadrage gauche 
00480 GOTO 350  - trait.ligne suivante 
00490 ! 

00500 ! S/F de traduction des abréviations 

00510 ! 

00520 MOR$=MOTS&"=" loinit mot à rechercher 
00530 FOR K=O TO 5 ! boucle de recherche 
00540 Q=FOS(TAS(K) ,MORS#, 1) ! - recherche mot 

00550 IF Q)0 THEN 580 1 — mot trouvé ? 

00560 NEXT K ; 

00570 RETURN ! —- retour si non trouvé 
00580 E=FOSC(TA$(K),"=",0Q) ! - recherche signe "=" 
00590 G=FOS(TA$CK),"/",E) AE 
00600 MOT$=TAS(KI(E+1:6-1) 1 - extract, mot traduit 
006410 RETURN ; 


00620 END 


1 #x FIN DU FROGRAMME *xx* 
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Ce programme se compose d'une boucle de traitement (lignes 190 à 
480) qui : 


1. lit un enregistrement (ligne 190) 


2. le traduit en clair (lignes 240 à 310) en faisant appel à un sous- 
programme de traduction (lignes 500 à 610). 


3. édite les lignes de texte (lignes 350 à 470). 


Le lecteur remarquera la façon dont sont faites les coupures en fin de 
ligne d'impression : si la ligne ne se termine pas par un mot (test ligne 
350), on explore « à reculons » la ligne jusqu’à la rencontre d'un blanc 
(boucle 370-390). Ce blanc trouvé, on sort la ligne d'impression (lignes 
440 à 450) et on recommence l'opération avec la partie restant à traiter de 
la ligne de texte (lignes 460 et 470). 


7. Fusion texte fichier en format fixe 


On dispose : 


— d'un texte représenté par un fichier « TEXTE » (une ligne de 64 car. 
par enreg.) de 50 enregistrements maximum. 


— d’un fichier « CLIENT » dont la longueur d'enregistrement est 255. 


En début du programme de fusion, l'utilisateur entre pour chaque zone 
concernée par la fusion : 


— sa position de début dans l'enregistrement « fichier » 
— sa position de fin dans l'enregistrement « fichier » 

— le numéro de la ligne de texte où elle doit figurer 

— sa position dans cette ligne 

— un code d'édition 


Ce code d'édition peut prendre trois valeurs : 
"1'" : pas d'édition 
‘"2'" : édition d'un montant en milliers de francs, francs et centimes 


avec symbole monétaire ‘’F"’. 
"3" : édition d’une date AAMMJJ sous la forme JJ/MM/AA 


On ne fera pas les coupures de mots en fin de ligne. La sortie des tex- 
tes fusionnés se fera sur imprimante. 


Le programme correspondant se trouve ci-après : 
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00010 
00020 
00030 


E708 


OFTION HASE 


FUSION TEXTE-FICHIER EN FORMAT FIXE 


BASIC et le traitement de textes 


origine des indices en À 








1 
00040 FF$=FICS$C"F") ! symbole monétaire = F 
00050 DIM T$(50)x64 ! tableau contenant Le TEXTE 
00060 OFEN £1: "NAME=TEXTE",INFUT ! ouverture fichier TEXTE 
00070 FOR 1={ TO 50 ! Boucle charg,tableau TEXTE 
00080 READ £1,USING 90: T$CI) EUF 110 ! Lecture Ligne ds tableau 
00090 FORM C 64 
00100 NEXT I ! fin boucle 
001410 ! 
00120 DIM D(20),F(20),L(20),F(20),CE(20) ! définition des tableaux 
00130 DIM F$x255,2$#255 ! contenant début,fin,lLiane, 
00140 ! position et code d'édition 
00150 : 
00160 FOR 1=41 TO 20 ! HOUCLE SAISIE DEFINITION 
00170 ! DES ZONES À MOUVEMENTER 
00180 FRINT "Entrer pour chaque zone à éditer :" 
00190 FRINT "Début,fin,N°lLigne,position,code édition" 
00200 FRINT " (0,0,0,0,0 gi entrée terminée )" 
002410 INFUT DCI),FCI),L(I),FCI),CECTI) 
00220 IF F(I)=0 THEN 240 
00230 NEXT I 
00240 ! 
00250 OFEN £2: "NAME=CLIENT",INFUT ! ouverture FICHIER CLIENT 
00260 READ £2,USING 270: F$ EOF 490 ! Lecture un enregistrement 
00270 FORM C 255 
00280 FOR I=1 TO 20 ! ROUCLE DE MOUVEMENT 
00290 ! DU FICHIER VERS LE TEXTE 
00300 IF D(I)=0 THEN 430 gi terminé —)impress ion 
00310 Z$=F$(D(I):FCI)) l'extraction zone 
00320 ON CECI) GOTO 390,330,360 ! traitement code édition 
00330 Z=VAL(Z#) ! conversion en numérique 
00340 ZH=CNVRTSC"FICCESS PÉL£, ££)",2Z) l'édition sv masque montant 
00350 GOTO 390 
00360 Z=VAL(Z4) ! conversion en numérique 
00370 ZH=ECNVRTSC"FICCE£EE£/£E/EE)",2) l'édition svt masque date 
00380 1 
00390 DZ=F(I): FZ=DZ+LEN(CZ$)-1 ! calcul pos,début et fin 
00400 THCLCI))CDZ:FZ)=Z$ ! mouvement de La zone vers 
00410 ! La Ligne de texte 
00420 NEXT I 
00430 ! 1 IMPRESSION TEXTE FUSIONNE 
00440 FRINT £255: NEVWFAGE + saut de page 
00450 FRINT £255,USING 460: MAT T# | impression tab,texte 
00460 FORM C 64 
00470 GOTO 260 ! retour Lecture enreg,suiv 
00480 ! 
00490 STOF 


Ce programme est divisé en trois modules : 


1. le chargement du texte dans le tableau de chaînes T$ (lignes 60 à 
100). 


2. la saisie et le stockage des caractéristiques des zones à mouvemen- 
ter du fichier vers le texte (lignes 160 à 230). 


3. la lecture du fichier « CLIENT », l'édition par masque et le mouve- 
ment des zones de chaque enregistrement vers les lignes de texte et 
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l'impression du texte lui-même (lignes 250 à 470). On remarquera que 
chaque mouvement « écrase » une partie de la ligne de texte concernée et 
qu'il est donc nécessaire de prévoir un nombre de blancs égaux à l'ampli- 
tude de la zone à mouvementer. 


Signalons pour finir qu'il serait, en pratique, utile de prévoir un con- 
trôle de validité des paramètres décrivant les zones à mouvementer. Nous 
ne l’avons pas fait pour éviter d’alourdir le programme. 


8. Fusion Texte-Fichier en format libre 


Le fichier « Texte » est le même que dans l'exercice précédent mais 
les endroits où les données doivent figurer sont indiqués par un mot-clé 
encadré par deux astérisques. On supposera que la place nécessaire à 
l'insertion des variables a été réservée au niveau de chaque ligne. 


Le fichier « client » est en format libre. Chaque enregistrement de 
255 caractères est composé de mots-clés également encadrés par deux 
astérisques suivi d'une valeur. 


Si un mot-clé figurant dans le texte n’a pas de valeur correspondante 
dans le fichier, la ligne du texte ne sera pas imprimée. 


Voici te programme correspondant : 
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00010 
00020 
000%0 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
60110 
00120 
00130 
00140 
00150 
00160 
004170 
00180 
00190 





00240 
00250 
00260 
00270 
00280 
00290 
00300 
003410 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 


1 
0 


E709 


OFTION BASE $ 
FF$=FICSC"F") 

DIM TH(50)*64,L£K64 
DIM M$(20) 

DIM L(20) 





OFEN £1: "NAME=TEXTE", INFUT 

FOR 1#1 TO 50 
READ £i,USING 120: L$ EOF 240 
FORM C 64 


TÉCI)=RTRME CLS) 
FD=FOSCLS,"#",1) 
IF FD=0O THEN 210 
FF=FOS(LS,"x",FD+41) 
KEK+4 
M$CK)=LS(FD:FF) 
LCR)=T 
GOTO 210 

NEXT I 


DIM S4(50)x64,F#$#255 

OFEN £2: "NAME=CLIENT", INFUT 
READ £2,USING 260: F$ EOF 520 
FORM C 255 

FHERTRMY(FH)& "x" 

MAT S$=T$ 

FOR N=1 TO K 





MC$=MS$ CN) 
FM=FOS(FS$,MCS$, 1) 
LI=L CN) 

IF FMz0 THEN 410 
DU=FM+LENCMCS) 
FV=FOS(F$,"x",DU)-1 


S$(LI)ESREFSCSS(LI),1,MC$,F$CDU:FU)) 


GOTO 420 
S$CLI)="" 
NEXT N 


FRINT £255: NEUFAGE 
FOR 1=1 TO 50 


IF S$(I)="" THEN 490 


FRINT £255 ,USING 480: S$(I) 
FORM C 64 

NEXT TI 

GOTO 250 

STOF 


FUSION TEXTE-FICHIER EN FORMAT LIBRE 


BASIC et le traitement de textes 


origine des indices en À 
symbole monétaire # F 
tableau contenant Le TEXTE 
def,tabl,.mots-clés texte 
déf,tableau N°lLigne texte 
ouverture fichier TEXTE 


Houcle charg.tableau TEXTE 
Lecture .igne ds tableau 


stockage Ligne -} tableau 
détéction * debut mot-clé 
recherche terminée 
détéction # fin mot-clé 

+ 4 indice du Tableau 
mot-clé -) tableau 
N°ligne de texte-}tableau 


fin boucle 


def.tableau texte à sortir 
ouverture FICHIER CLIENT 
Lecture un enregistrement 


*% après l'enreg.du fichier 
tabLl.TEXTE -} tabl,SORTIE 
BOUCLE RECHERCHE MOTS-C 
ET REMPLACEMENT FAR VALEUR 
extraction mot-clé tableau 
détect.mot-clé ds fichier 
N°Ligne à modifier 

non trouvé -)pas de sortie 
calcul pos.début valeur 
calcul pos.fin va Leur 





REMFLAC,MOT--CLE FAR VALEUR 
DANS LE TABLEAU À SORTIR 
—) mot-clé suivant 

Ligne à ne pas imprimer 


IMPRESSION TEXTE 
— saut de page 
boucle impr,tableau SORTIE 
test si Ligne long.nulle 
impression Ligne texte 


FUSIONNE 


retour lecture enreg.suiv 


Par rapport au précédent, ce programme-ci ne Comprend que deux par- 
ties principales : 


1. Le chargement du texte dans le tableau T$ (lignes 80 à 210). A 
chaque fois que le programme lit une ligne de texte, il en profite pour y 
rechercher les mots-clés (lignes 140-160). Chaque mot-clé est chargé 
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dans un poste du tableau M$ (ligne 180) et le N° de la ligne de texte où il 
figure dans le poste correspondant du tableau L (ligne 190). 


2. La lecture du fichier, le mouvement des zones de l'enregistrement 
vers le tableau texte et l'impression du texte modifié (lignes 240 à 500). 


On remarquera que, à la différence de l'exercice précédent, les mouve- 
ments de zones ne se font pas par « écrasement » mais par remplacement 
du mot-clé par sa valeur extraite de l'enregistrement fichier. La longueur de 
cette Valeur pouvant varier d'un enregistrement du fichier à l’autre, il est 
donc obligatoire de copier le tableau « texte » dans un tableau « sortie » 
qui, lui, sera modifié par les remplacements et imprimé. Cette copie se fait 
ligne 280 après chaque lecture du fichier « CLIENT ». 


LEXIQUE 


FRANCAIS - ANGLAIS 


Affecter (une valeur) ............ assign (to) 
Afficher ...................... display (to) 
Aligner ....................... justify (to) 
Apostrophe ................... apostrophe 
Astérisque ..................... asterisk 
Attribuer (une valeur) ........... set (to) 

Barre de fraction (/) ............ slash 
Bibliothèque ................... library 

Blanc (caractère —) ............. blank 

Boucle 2402 taeicsuie sen loop 

Centrer 5... sde center (to) 
Chaîne (de caractères)........... string (character —) 
Chaîne (de long. nulle) .......... null string 
Charger (un fichier) ............. load (to) 
CIASSRE 5 iles norte collate (to) 
CIAVIGE, 25 union. keyboard 

Clé (d’enregistrement) .......... key (record —) 
Clé en double .................. duplicate key 
Colonne ...................... column 
Commentaire .................. remark 
Compléter ..................... padd (to) 
Concaténation ................. concatenation 


Convertir ..................... convert (to) 
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Créer: 6 Samia create (to) 
Décaler, décalage ............... shift (to) 
Dépanner (un programme) ...... debug (to) 
Dépassement de capacité ........ overflow 

Deux points ................... colon 

Direct (accès -) ................. random (- access) 
Ecran (cathodique) ............. screen (cathode ray -) 
Enlever shui een remove (to) 
Enregistrement ................. record 

Erreur (de programme) .......... bug 

Espacement ................... space 

et «commercial» (&) ............ ampersand 
Etiquette ...................... label 

FACTOUT Er sue emmupenne operand 

Fichiers: 53e meer byes file 

Fusionner ..................... merge (to) 
Guillemet ..................... quotation mark 
IMAGE = sdiare ceci picture 

Imbriquer ..................... nest (to) 
Imprimante ................... printer 

Imprimé ...................... form (paper -) 
Imprimer ..................... print (to) 

INSÉTRr cu ste ui ose insert (to) 
Insertion ::5.12.5332%euus Sert insertion 
Interrompre ................... break (to) 

Jeu (de caractères) .............. set (character -) 
Ligne 55 dustus nas saut line 

Ligne (d’un tableau) ............ row (of an array) 
Longueur .:: 2.400422 0 lenght 

Machine à écrire ................ typewritter 
Majuscule (lettre -) ............. uppercase (- letter) 
Membre (d’une bibli.) ........... member (library -) 
Message de service .............. prompt 

Mettre à jour .................. update (to) 
Mettre en fonction .............. enable (to) 

Mettre hors fonction ............ disable (to) 
Minuscule (lettre -) ...:.......... lowercase (- letter) 
Octet. 51e ner sua byte 

Parenthèse nul dteusinr ete parenthesis 


Piste (sur un disque) ............ track 
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Point :::.::2 stars hrs period 
Point-virgule .................. semicolon 

Poste de travail ................ workstation 
Recherche, rechercher .......... |. search (to) 
Remplacement ................. replacement 
Remplacer .................... replace (to) 
Répéter ....................... repete (to) 
Restaurer (une valeur) ........... reset (to) 

Retour chariot ................. carriage return 
Saut, sauter (des lignes) ......... skip (to) 

Sauter (de page) ................ jump (to) 
Sauvegarder ................... save (to) 
Séparateur (caractère-) .......... delimiter 
Séquentiel ..................... sequential 
Séquentielle-indexée ............ indexed sequential 
Souligner ..................... underscore (to) 
Sous-chaîne ................... substring 
Sous-programme ............... subroutine 
Suppression ................... deletion 
Supprimer ..................... delete (to) 
Symbole monétaire ............. currency symbol 
Tableau 2200 dinde ne array 
Tabulateur .................... tab key 
Terminal à écran ............... display station 
Miret 2 2r sn Sem A: hyphen 

Touche (sur un clavier) .......... key (keyboard -) 
Touche de fonction ............. function key 
Éric te sort (to) 

Virgule: ::::2:2.14 ui cuoes ane comma 


Zone (de données) .............. field 
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ANGLAIS - FRANÇAIS 


Ampersand .................... et «commercial» (&) 
Apostrophe ................... apostrophe 

ATV: 5: Dos tan soute nue tableau 

Assign (10) .................... affecter (une valeur) 
Asterisk::: 3-01 naar astérisque 

Blank: 55 cuciommstamuname blanc (caractère -) 
Break: (t0)::::: 52.4 route us interrompre 
BUuL,.25:.:5smhe0es opens erreur (de programme) 
Bytes tanvansennmpess octet 

Carriage return ................ retour chariot 
Center... issssts fish ai ihbes centrer 

Collate (To) ................... classer 

Colôn 2:22 ms Me cumne deux points 

Column ....................... colonne 

Comma ....................... virgule 
Concatenation ................. concaténation 
Convert (To) .................. convertir 

Create (To) .................... créer 

Currency symbol ............... symbole monétaire 
Debut (To) .................... dépanner (un programme) 
Delete (To) .................... supprimer 

Deletion ...................... suppression 
Delimiter ...................... séparateur (caractère -) 
Disable (To) ................... mettre hors fonction 
Display (To) ................... afficher 

Display station ................. terminal a écran 
Duplicate key .................. clé en double 
Enable (To) ................... mettre en fonction 
Field: #72 mme ere zone (de données) 
File: 2222020 an fichier 

Forme (Paper -) ................ imprimé 

Function key .................. touche de fonction 
Hyphen .:::::::..54.:4844400 tiret 


Indexed sequential .............. séquentielle-indexée 
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Insert (To) .................... insérer 
Insertion... insertion 
Jump (To) :::.:-:::.... 060050 sauter (de page) 
Justify (To) .................... aligner 
Key (Keyboard -) ............... touche (sur un clavier) 
Key (Record=)..::.5% 140 se8u200 clé (d’enregistrement) 
Keyboard ..................... clavier 
Label 22%. isa étiquette 
Lenght.:2254 master es longueur 
ÉIDTAEV: 22:55 Sienuecesn bibliothèque 
Line... iii tentant ligne 
Load (To) ..................... charger (un fichier) 
ÉOO0D.:::4:: 51400 dede boucle 
Lowercase (- Letter) ............ minuscule (lettre -) 
Member (Library) .............. membre (d’une bibliothèque) 
Merge (To) .................... fusionner 
Nest (T0)... ::::44. 80080 en imbriquer 
NullString issues chaîne de longueur nulle 
Operand:.::...1.%1140821048. facteur 
Overflow ...................... dépassement de capacité 
Padd'(T0)' :.1:: 25:25 22 50 compléter 
Parenthesis .................... parenthèse 
Pérnodi::55 sn LE point 
Picture 2er eme image 
Print (To) ..................... imprimer 
Printer... PR ne imprimante 
Prompt ...............:....... message de service 
Quotation mark ................ guillemet 
Random (- Access) ............. direct (acces -) 
Record. 1.2: 52815 enregistrement 
Remark.:22288.#ionnemen nee commentaire 
Remove (To) .................. enlever 
Repete: (TO) .:.:..3:54:325..% répéter 
Replace (To) ................... remplacer 
Replacement ................... remplacement 
Reset (To) ..................... restaurer (une valeur) 
Row (of an array) .............. ligne (d’un tableau) 
Save (TO). laure san ae it sauvegarder 
Screen (cathode ray -) ........... écran cathodique 


Search (To): :::555 2020538083 recherche, rechercher 
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Semicolon ..................... point-virgule 
Sequential ..................... séquentiel 

Set (Character -) ................ jeu (de caractères) 
Set (T0): 521 eu ee attribuer (une valeur) 
Shift (To): 2:55 825 décaler, décalage 
Skip (To) ...................... saut, sauter (des lignes) 
SIASHE 5: 550 nd barre de fraction (/) 
Sort (To) ...................... trier 

SDACC: Es Mr ne EL espacement 

String (Character -) ............. chaîne (de caractère) 
Subroutine .................... sous-programme 
Substring ..................... sous-chaîne 

Tab Key ses ts sieonmmente tabulateur 

TTACK nement io piste (sur un disque) 
Typewritter .................... machine à écrire 
Underscore (To) :.............. souligner 

Update (To) ................... mettre à jour 
Uppercase (- letter) ............. majuscule (lettre -) 


Workstation .................. poste de travail 


INDEX 


A 
AIDX (fonction -) ..... 73, 101,111, 121 
ASCII (jeu de caractères -) ....... 2,4, 50 
B 
BASE (option -) ................ 19, 20 
C 
Chaîne de longueur nulle ....... 6, 15, 32 
Codification ............... 47, 96, 126 
Comparaison de deux chaînes ......... 9 
Concaténation .................. 26, 40 
Constante alphanumérique ........... 1 
Consultation de tables ........... 47, 48 
Conversion majusc./minuscule ....... 67 
Conversion numér.-caractère ..... 33, 37 
Cryptage d’un fichier ............ 56, 79 
CHR (fonction-)............ 72, 79, 90 
CNVRT$ (fonction-) ............ 69, 84 
CONTINUE (instruction -) ........... 7 
CONV (condition ON -)............. 34 
D 
Dictionnaire de données ...... 97, 98, 117 
Dollar (caractère) ................ 1, 70 
Dépassement de capacité ............. 7 
DATA (instruction -) ..... 11, 22, 54, 63, 
117, 120 
DIDX (fonction -) .............. 73, 101 
DIM (instruction -) ...... 6, 14, 17, 19, 24 
E 
Edition d’une zone ................. 69 
Edition somme en lettres ............ 38 


Expressions « caractère » ... 5, 35, 50, 55 
Extraction d’une sous-chaîne ......... 29 


EBCDIC (jeu de caractères -) .... 2,3, 50, 
77, 79, 80 


F 


Fichiers en format fixe .. 97, 104, 117, 124 
Fichiers en format libre .... 100, 104, 116, 


121, 131 

Fonctions « caractère » ............. 26 

Fusion Texte-Fichier ... 87, 102, 129, 131 

FORM (instruction -) ............ 18, 23 
G 

Guillemiet-::.142seuume mures 1, 14 

GOSUB (instruction -) .............. 50 
H 

Histogramme ................... 40, 75 
I 

Impression d’un tableau ............. 23 

Impression de chaînes ............... 16 

Indexation d’un document .......... 109 

Insertion d’une sous-chaîne .......... 29 

Insertion de blancs ................. 65 

Interrogation de fichier .............. 98 

IF THEN ELSE (instruction -) ..... 9, 50, 

6, 63 

IGNORE (instruction -) .............. 8 

INPUT (instruction -) ....... 13, 63, 117 

INVP (option-) .................... 71 
J 

Jeu de caractères ........ 2,11, 72,77, 79 
K 

Kwic-Index ....................... 111 
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L 


Langage d’interrogation ............. 98 
Longueur d’une chaîne .. 5,6, 10,20, 29,31 


LEN (fonction -) .................... 5 
LINE (fonction -) ................... 7 
LINPUT (instruction -) ......... 15, 117 
LPADS$ (fonction -) ................ 65 
LTRMS (fonction -) .......... 65, 67, 84 
LWRCS (fonction -) ................ 67 
M 
Masque d’édition ............ 69, 70, 71 


Mots-clés ...... 94,97,111, 114, 117, 126 


MAT (fonction -) ............... 21, 22 
O 

Opérateurs « caractère » ............ 26 

Organisation de fichiers ............. 89 

ORD (fonction-) ................ 72, 80 
P 

PIC (instruction -) ............... 69, 84 

PICS (fonction-) ................ 71, 79 

POS (fonction -) ...... 45, 46, 47, 55, 56, 

93, 117 

PRINT (instruction -) ............ 16,21 


PRINT USING (instruction -) ..... 18, 23 


PRTZO (option-) .................. 17 
R 

Rang d’un caractère .......... 10, 72, 77 

Recherche de caractères ............. 45 

Recherche de mots ........... 43, 54, 92 
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Recherche documentaire ........ 93, 114 
Redimensionnement ............. 22, 74 
Remplacement d’une sous-chaîne ..... 31 
‘ Répétition d’une chaîne ............. 68 
READ (instruction -) ........ 11, 22, 120 
RESTORE (instruction -) ............ 12 
ROUND (fônction-) ................ 43 
RPADS (fonction -) ............. 65, 66 
RPTS$ (fonction -) ............... 68, 76 
RTRMS (fonction -) ............. 65, 67 
S 
Sous-chaîne ....................... 28 
Suppression d’une sous-chaîne ....... 32 


Suppression de blancs ............... 65 
Symbole monétaire ................. 70 
SOFLOVW (condition -) ... 7, 8, 12, 19, 27 
SRCH (fonction -) 55, 56, 63 
SREPS$ (fonction -) ..... 51, 55, 56, 84, 93 


STRS (fonction -) .................. 33 
T 

Table de décision ............... 60, 124 

Tableaux de chaînes ................ 19 

Transcodification d’un fichier ..... 52, 59 

Tri d’un fichier ............... 101,118 

Tri d’un tableau ............. 73, 75, 82 
U 

UPRCS (fonction-) ................. 67 
V 

Variable alphanumérique ............. 1 

VAL (fonction -) ................... 34 
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